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Vin 


Vorwort 


Der Kreis der Besitzer von Mikrocomputern nimmt ständig zu. Nur ist es nicht mit der 
Anschaffung des Rechners getan. Es sind problembezogene Programme nötig. Diese 
werden oft in BASIC formuliert, wobei fast jeder Hersteller einen eigenen Dialekt dieser 
Sprache anbietet. Wer effektvoll programmieren will, muß also die auf seinen Rechner 
ausgerichtete Variante des BASIC beherrschen. 


Dieses Buch wendet sich an Leser, die lernen wollen, einen Commodore-Rechner der 
Serien cbm 4001 oder cbm 8001 in BASIC zu programmieren. Dabei ist ein regelmäßiges, 
aktives Arbeiten an einem entsprechenden Rechner unverzichtbar. Deshalb sollten die 
zahlreichen Experimente unbedingt durchgeführt und die Aufgaben, soweit das möglich 
ist, am Rechner gelöst werden. 


Vorkenntnisse über Aufbau und Funktionsweise von Digitalrechnern sind nicht unbedingt 
erforderlich. Da die Eigenarten der Programmierung sich an mathematischen Problemen 
besonders einfach demonstrieren lassen, werden geringe Mathematikkenntnisse voraus- 
gesetzt, die sich im wesentlichen auf die Grundlagen der Algebra beschränken. 


Zu danken habe ich meiner Frau für die umfassende Unterstützung und die Übernahme 
der Schreibarbeiten. Ich danke auch der Geschäftsführung der BDB Büro KG, Hamburg 26, 
die die Entstehung dieses Buches durch die vorübergehende Überlassung einer cbm- 
Rechenanlage gefördert hat. Nicht zuletzt gilt mein Dank den Mitarbeitern des Verlages 
für die reibungslose Zusammenarbeit. 


G. Oetzmann 


Hamburg, im Frühjahr 1982 


1 Was ıst BASIC? 


Charakteristisch für einen frei programmierbaren Digitalrechner ist die Trennung der Ar- 
beitsanweisung (des Programms) von der ausführenden Anlage. Dadurch wird es möglich, 
einer Anlage durch Wechsel des Programms immer wieder neue Aufgaben zu übertragen. 
Woher nimmt man aber die erforderlichen Programme? 


Auch Programme kann man kaufen. Die Erfahrung lehrt jedoch, daß die Übernahme der 
am Markt angebotenen Software oft unbefriedigend ist, weil eigene Belange nicht angemes- 
sen berücksichtigt werden können. Daher sind Sie als Besitzer eines com-Rechners in der 
Regel besser beraten, wenn Sie speziell auf Ihren Bedarf zugeschnittene Programme benut- 
zen. Diese werden Sie allerdings selbst erstellen müssen, wobei Ihnen dieses Buch Hilfestel- 
lung geben will. 

Eine Programmiersprache wie cbm-BASIC erlernt man nicht ohne intensives Training. Tra- 
gen Sie dem Rechnung und führen Sie die jeweils am Anfang der folgenden Kapitel aufge- 
führten Experimente sorgfältig und vollständig aus. Auch die am Ende der Kapitel gestell- 
ten Aufgaben sollten Sie nach Möglichkeit bearbeiten. 

Die Beurteilung Ihrer Lösungen wird oft problematisch sein. Wie in Umgangssprachen kann 
man in Programmiersprachen einen Sachverhalt auf viele Arten richtig darstellen. Abweichun- 
gen zur angegebenen Musterlösung bedeuten daher nicht zwangsläufig einen Fehler. Außer- 
dem dürfen diese Lösungen nicht als Ideallösungen verstanden werden. Vielmehr wurde oft 
aus didaktischen Gründen auf knappe Formulierungen bewußt verzichtet. 

Am Beispiel der quadratischen Gleichung wollen wir erläutern, wie ein vorgelegtes Problem 
in ein Programm umgesetzt wird. Die allgemeine Form der Gleichung istx? +px+q=0. 
Ihre Lösungen lauten 


- -2_1/ I - 

1-70 
pP, 1/P 

Ca Are 


wie man in mathematischen Formelsammlungen nachlesen kann. Damit liegt der Umfang 
der auszuführenden Berechnungen fest. 

Im ersten Aufbereitungsprozeß müssen wir die erforderlichen Rechenschritte in eine zeit- 
liche Folge bringen: 


Werte für p und q festlegen (,‚eingeben‘‘). 


N 
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Symbol Bedeutung 


Grenzstelle 

Kennzeichnung von Anfang 
und Ende. Genau ein 
Anfang nötig. 


Ablauflinie 
Linie von oben in Symbole 


Linien bedeuten keine Zu- 
sammenführung. 
Pfeilspitzen erlaubt. 


Operation 

Verbale oder formelmäßige 
Beschreibung der auszu- 
führenden Aktion einsetzen. 


Eingabe, Ausgabe 
Richtung und betroffene 
Größen angeben. 


Verzweigung 
Ja-Nein-Entscheidung. 
Mindestens einen Aus- 
gang beschriften. 


Unterprogramm 
Markiert den UP-Aufruf. 


Programmodifikation 
Wird hier nur in 
Schleifen verwendet. 


Übergangsstelle 

Der Übergang darf jeweils 
von mehreren, aber nur zu 
einer Stelle erfolgen. 


DUO LIU L 


Bemerkung 
Außerhalb der Symbole 
anbringen. 


Operation von Hand 

Für notwendige Eingriffe 
des Bedieners während 
des Programmlaufs. 


Bild 1.1 Ablaufplansymbole nach DIN 66ß91 
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hineinführen. Sich kreuzende 


Beispiel 





Eingabe: 
P,Q 


2.2. Stammdaten 
lesen 
PLAY-Taste 
drücken 
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Den Bruch Z= berechnen, weil er mehrfach auftritt. 


- p\2 
(2) —-q berechnen. 


xı und x, berechnen. 
Die Ergebnisse ‚ausgeben‘. 


1.1 Ablaufplan 


Die Darstellung des Lösungsweges erfolgt gewöhnlich unter Verwendung genormter Sym- 
bole (s. Bild 1.1) als Programmablaufplan. Der Plan für den obigen, verbalen Ablauf ist in 
Bild 1.2, Version a dargestellt. Um Mißverständnissen vorzubeugen, sei darauf hingewiesen, 
daß die Zeile 


A=-P/2 


nicht als mathematische Gleichung gemeint ist. Sie bedeutet vielmehr, daß die auf dem 
Speicherplatz P stehende Zahl durch 2 geteilt, das Vorzeichen geändert und das Ergebnis 
auf dem Platz A gespeichert werden soll. Entsprechend sind die anderen Zeilen des Recht- 
eckes zu verstehen. 


a) b) 


Eingabe: 
P,Q 
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Ausgabe: 
X1,X2 





“Radikand 
negativ‘‘ 


Bild 1.2 Lösung der quadratischen Gleichung 
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Wenn mit dem angesprochenen Ablauf auch die Lösungen quadratischer Gleichungen ermit- 
telt werden können, enthält der Plan noch eine Schwachstelle. Geben Sie beispielsweise für 
P und Q jeweils eine 2 ein, ergibt sich A? als 1, und es wird versucht, die Wurzel aus - 1 zu 
ziehen. Ihr Rechner weiß, daß das im Bereich der reellen Zahlen nicht geht, und bleibt mit 
einer entsprechenden Fehlermeldung stehen. 


Derartige Situationen sollten beim Entwurf des Ablaufplans erkannt und durch geeignete 
Maßnahmen verhindert werden. Wir dürfen nicht sofort die Wurzel, sondern zunächst nur 
den Radikanden berechnen lassen. Wenn dieser negativ ist, lassen wir die Meldung ‘“Radi- 
kand negativ‘‘ ausgeben, damit der Benutzer erkennt, warum das Programm keine Zahlen 
auswirft. Im anderen Fall wird der normale Rechengang fortgesetzt. Den so modifizierten 
Ablaufplan zeigt Bild 1.2, Version b. 


Solange Sie sich auf dem Gebiet der Programmierung noch als Anfänger fühlen, sollten Sie 
Ablaufpläne in der hier vorgestellten Ausführlichkeit zeichnen. Ein solcher Plan erleichtert 
Ihnen die Suche nach Fehlern in der Programmlogik. Als Konvention ist einzuhalten, daß 
die Ablauflinie beim Start-Symbol beginnt, nur von oben in die anderen Symbole hinein- 
geführt und nur nach unten — bei der Abfrage auch seitlich — herausgeführt wird. Stehen 
in einem Rechteck mehrere Zeilen, sollen sie der Reihe nach von oben nach unten ausge- 
führt werden. 


1.2 BASIC-Programm 


Mit der Erstellung des detaillierten Ablaufplans ist der konstruktive Teil der Programment- 
wicklung erledigt. Die heutigen Rechner sind jedoch noch nicht in der Lage, diesen Plan un- 
mittelbar abzuarbeiten. Sie verstehen nur Programmiersprachen. Bei Ihrem Rechner ist das 
cbm-BASIC, eine Erweiterung des Dartmouth-BASIC (Beginners All-purpose Symbolic In- 
struction Code). Deshalb müssen Sie den im Plan festgelegten Sachverhalt in eine gleichwer- 
tige Folge von BASIC-Anweisungen übersetzen (,‚codieren‘‘). 


Für den Plan aus Bild 1.2, Version b, ergäbe sich folgendes Programm: 


10INPUT ”P,Q‘;P,Q 

20A =-P/2:R=At2-Q 

30IF R<Q THEN PRINT "RADIKAND NEGATIV“: GOTO 69 
ADW=SOR(R):X1=A-W:X2=A+W 

SOPRINT X1,X2 

6DEND 


Dieses Programm kann dann von Ihrem Rechner interpretiert und ausgeführt werden. 
1.3 Programmtest 
Nur in Ausnahmefällen ist ein neues Programm fehlerfrei. Dagegen ist keineswegs ungewöhn- 


lich, daß schon im Ablaufplan logische Fehler stecken, und formale Fehler treten fast im- 
mer auf. Diese Verstöße gegen die BASIC-Sprachregeln werden bei der Programmausfüh- 
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rung (vom Interpreter) entdeckt und mit einer entsprechenden Meldung angezeigt. Der Be- 
nutzer kann die Fehler beheben und neu starten. 


Logische Fehler zu erkennen ist allein dem Menschen vorbehalten. Aber auch dabei, insbe- 
sondere bei der Lokalisierung der Fehler, kann der Rechner helfen. Besonders beachtens- 
wert ist die Möglichkeit, ein Programm an beliebiger Stelle unterbrechen zu können. Man 
kann sich Zwischenergebnisse anzeigen lassen und ggf. ändern und danach die Ausführung 
fortsetzen. 

In jedem Fall ist durch eine Reihe geeigneter Testläufe nachzuweisen, daß ein Programm 
die gestellten Anforderungen auch tatsächlich erfüllt. Beachten Sie, daß ein Lauf mit nega- 
tivem Ausgang für einen Fehlernachweis ausreicht, während selbst durch viele korrekte 
Durchläufe nur die Wahrscheinlichkeit für das Vorliegen von Fehlern reduziert wird. Über- 
legen Sie sich jeweils, wie Sie mit wenig Aufwand an Testläufen ein Maximum an Sicherheit 
erzielen. 


2 Handhabung des Rechners 


In diesem Kapitel sollen Sie lernen, mit dem Gerät umzugehen, und einen Überblick über 
die wichtigsten Spezialtasten bekommen. Das Kapitel gliedert sich in einen Übungsteil und 
einen Textteil. An den nachfolgenden Aufgaben können Sie dann prüfen, wie weit Sie sich 
den gebotenen Stoff tatsächlich erarbeitet haben. In dieser Form sind auch die weiteren 
Kapitel aufgebaut. 


Bei den Experimenten zu Beginn der Kapitel sollten Sie in der Regel die Reaktion des Rech- 
ners notieren. Streuen Sie keine eigenen Versuche ein, weil dadurch die Reaktion beeinflußt 
und Verweise vom Textteil auf die vorangegangenen Übungen für Sie unverständlich werden 
könnten. 


Zumindest bei Ihren ersten Versuchen sollten Sie die vorgeschriebenen Anweisungen sehr 
genau lesen. Da fast alle Tasten doppelt belegt sind, müssen Sie jeweils entscheiden, ob, wie 
z.B. bei der Taste INST/DEL, die Hauptfunktion (DEL, ohne SHIFT-Taste) oder die Ne- 
benfunktion (INST, mit SHIFT-Taste) verlangt ist. 


Wenn man mit dem cbm-Rechner wirklich vertraut ist, zahlt sich das schon bei den vorgese- 
henen Übungen aus. Auch bei der Fehlerbeseitigung profitiert man davon. Daher muß dem 
Leser geraten werden, so oft wie möglich am Gerät zu arbeiten, alle vorgesehenen Experi- 
mente durchzuführen, möglichst viele Aufgaben zu lösen und, soweit Programme gefordert 
sind, diese auch tatsächlich auszuprobieren. 


Ihr com-Rechner ist in der Lage, Buchstaben wahlweise groß oder klein zu schreiben. 
Sollte er auf Kleinschreibung eingestellt sein, können Sie ihn so belassen. Er wird die in 
diesem Buch mit großen Buchstaben geschriebenen Anweisungen dennoch verstehen. 
Falls Sie aber die Großschreibung bevorzugen, dürfen Sie dazu nicht die SHIFT-Taste ver- 
wenden. Vielmehr müssen Sie die Darstellungsart in folgender Weise festlegen. 


Große Buchstaben werden angezeigt nach POKE 59468,12 und RETURN--Taste. 
Kleine Buchstaben hingegen nach POKE 59468,14 und RETURN -Taste. 


Eine solche Vereinbarung bleibt solange gültig, bis sie durch das jeweils andere POKE- 
Kommando revidiert wird. 


a) Beginnen Sie nun die Experimente, und schalten Sie das Gerät mit dem Kippschalter 
hinten links ein. Der Rechner wird mit der Meldung 


### COMMODORE BASIC 4,0 ### 
31743 BYTES FREE (Zahl geräteabhängig) 
READY 
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reagieren. Unter dem R von READY blinkt der Cursor, der die Stelle des Bildschirms 
zeigt, die als nächste beschrieben wird. Schreiben Sie, und beobachten Sie dabei den 
Cursor (Leerzeichen erzeugen Sie mit der großen Taste am unteren Rand der Tastatur): 


?’2+3 
Drücken Sie die RETURN-Taste. 


b) Schreiben Sie 
?6-4 
Wie reagiert der Rechner? 
Drücken Sie die RETURN-Taste. 
c) Schreiben Sie 
31 +5 
Drücken Sie die RETURN-Taste. Beachten Sie die Unterschiede zu den vorausgegange- 


nen Fällen. 


d) Probieren Sie jetzt die Cursor-Steuertasten aus, die Sie mit der Aufschrift CRSR im 
rechten Teil der Tastatur finden. Betätigen Sie diese Tasten, halten Sie sie längere Zeit 
nieder, auch bei gedrückter SHIFT-Taste, und registrieren Sie die resultierende Cursor- 
Bewegung. Bringen Sie den Cursor auf die 3 in der Zeile ‚31 + 5“. (Jetzt blinkt die 3.) 
Betätigen Sie einige Male die INST-Taste. Schreiben Sie 

? 


und drücken Sie die RETURN -Taste. 


Setzen Sie jetzt den Cursor hinter den Punkt der vorhergehenden Zeile, und betätigen 
Sie die DEL-Taste, bis das Wort „READY“ gelöscht ist. Schreiben Sie vor die 3 in der 
untersten Zeile ein Fragezeichen und hinter die 6 


+ 5/4 
Drücken Sie die RETURN -Taste. 


f) Schreiben Sie jetzt 
2525+4,6+2,4 


Drücken Sie die RETURN-Taste. Notieren Sie Ihre Vermutung darüber, weshalb nicht 
gerechnet wird. Dann setzen Sie den Cursor auf das Fragezeichen in der letzten Zeile und 
drücken so lange die DEL-Taste, bis die vor dem Fragezeichen stehenden Ziffern ge- 
löscht sind. Betätigen Sie die RETURN -Taste. 


© 
De 


Löschen Sie jetzt die letzte Zeile (READY), setzen Sie vor die 9 ein Fragezeichen und 
drücken Sie die RETURN-Taste. Falls Ihr Rechner keine 9 zeigt, müssen Sie Punkt f) 
wiederholen (beachten Sie die Kommas!). 


a 


8 


h) Bewegen Sie den Cursor um 3 bis 5 Zeilen nach unten und beobachten Sie dabei den 
Bildschirm. Danach führen Sie den Cursor auf das R in der untersten Zeile und schreiben 


? 6.25/.25 
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Bewegen Sie jetzt den Cursor eine Zeile nach unten, und betätigen Sie die RETURN-Ta- 
ste. Setzen Sie dann den Cursor auf den Schrägstrich, und betätigen Sie die RETURN- 
Taste erneut. 


2.1 Ein- und Ausschalten 


Nun wollen wir erörtern, was Sie bei den vorstehenden Experimenten kennengelernt haben. 


Das Ein- und Ausschalten des Gerätes erfolgt mit dem Kippschalter auf der Rückseite links. 
Nach dem Einschalten wird der nutzbare Speicherbereich angezeigt. Diese Angabe sollte bei 
Ihrem Rechner stets gleich sein, andernfalls wiederholen Sie das Einschalten. Bleibt die An- 
zeige falsch, versuchen Sie, mit Hilfe des Bedienungshandbuches die Störung zu beheben, 
oder wenden sich in schwerwiegenden Fällen an den Wartungsdienst. 


Normalerweise wird sich Ihr Rechner als arbeitswillig erweisen, was er Ihnen durch das 
Wort READY anzeigt. Nehmen Sie sein Angebot an und sagen Sie ihm, was er tun soll. 
Abgesehen von einigen Spezialtasten, führt das Betätigen einer Taste zu der Anzeige des 
entsprechenden Zeichens auf dem Bildschirm. Der Cursor, ein blinkendes Quadrat, zeigt 
jeweils an, wohin das nächste Zeichen gesetzt wird. Nach dem Schreiben rückt er eine Stel- 
le weiter. War die Zeile voll, springt er an den Anfang der nächsten Zeile. Falls der Cursor 
schon am unteren Bildschirmrand stand, wird zuvor der ganze Schirminhalt um eine Zeile 
angehoben, so daß die oberste Zeile verlorengeht. 


2.2 Spezialtasten 


Durch die Cursor-Steuertasten können Sie den Cursor nach links, rechts, oben, unten oder 
in die linke obere Ecke bewegen. Schon hier sei erwähnt, daß Sie diese Bewegungen auch 
programmieren können (s. Kap. 5). Die Tasten werden dann nicht bei ihrer Betätigung wirk- 
sam, sondern erst während der Ausführung des Programms, in das sie eingefügt wurden. 


Die Steuerungsmöglichkeiten des Cursors erweisen sich als sehr nützlich, wenn Teile einer 
auf dem Bildschirm stehenden Zeile gelöscht oder geändert werden sollen. Um ein Zeichen 
zu ersetzen, genügt es, den Cursor auf die fragliche Position zu bewegen und das neue Zei- 
chen zu schreiben. So haben wir in der Übung h) das Wort READY bei R beginnend Zei- 
chen für Zeichen durch einen Rechenausdruck überschrieben. 


In Übung e) haben Sie gesehen, wie man ein Zeichen löschen kann: Der Cursor wird hinter 
das zu löschende Zeichen gesetzt und die DEL-Taste betätigt. Daraufhin verschwindet das 
vor dem Cursor stehende Zeichen. Der Cursor und der Rest der Zeile rücken eine Stelle 
nach links. Sollen mehrere benachbarte Zeichen gelöscht werden, sollte man von rechts her 
vorgehen, weil der Cursor dann nur einmal positioniert werden muß. 


Wollen Sie Zeichen einfügen, wie das Fragezeichen in Übung d), muß dafür zunächst Platz 
geschaffen werden. Dazu wird der Cursor auf die Stelle gebracht, vor die der Einschub ge- 
setzt werden soll. Jedes Drücken der INST-Taste rückt den mit der Cursor-Position begin- 
nenden Rest der Zeile um eine Stelle nach rechts. Der Cursor bleibt am Anfang der Lücke 
stehen. Ist diese groß genug, kann die vorgesehene Ergänzung geschrieben werden. 


2.4 Ergebnisdarstellung 9 


Wenn der Cursor in einer soeben mit INST geschaffenen Lücke steht, können Sie ihn nicht 
mit den Steuertasten bewegen. Diese Tasten werden gespeichert, was Ihnen durch beson- 
dere Symbole angezeigt wird. Nur die DEL-Taste wirkt normal. Sollen die Steuertasten 
wieder normal funktionieren, muß die ESC-Taste gedrückt werden. 

Alle Spezialtasten sind als Dauerfunktionstasten ausgelegt, d.h. wenn man eine dieser 
Tasten längere Zeit niederdrückt, tritt deren vorstehend genannte Wirkung mehrfach ein. 
Alle anderen Tasten können Sie vorübergehend auf Dauerfunktion umschalten, wenn Sie 
sie zusammen mit der REPEAT-Taste niederhalten. 


2.3 Aufbau von Zeilen 


Abgesehen von der Cursor-Bewegung bzw. der Zeichenanzeige auf dem Bildschirm, hat die 
Betätigung von Tasten keine erkennbare Rechnerreaktion hervorgerufen. Eine Ausnahme 
bildet die RETURN-Taste. Beachten Sie, daß alle Berechnungen erst nach Betätigung die- 
ser Taste durchgeführt wurden. Bis dahin standen die eingegebenen Zeichen nur im Bild- 
schirmspeicher. Über diesen besonderen Speicherbereich können Sie insofern frei verfügen, 
als Sie beliebige Zeichen in beliebiger Reihenfolge auf beliebige seiner Plätze setzen können. 
Da stets alle dort gespeicherten Zeichen angezeigt werden, sehen Sie jederzeit den genauen 
Speicherinhalt. Durch Betätigung der RETURN-Taste wählen Sie aus diesem Speicherbe- 
reich jene Zeile aus, in der der Cursor steht, und übergeben sie dem Rechner zur Bearbei- 
tung. Falls diese Zeile mit einer Zahl beginnt (s. Übungen c) und f)), gelten die Zahl als Zei- 
lennummer und die Zeile als Programmzeile. Sie wird im Programmspeicher abgelegt und 
zum jetzigen Zeitpunkt nicht ausgeführt. 


Die Zahlen von ß bis 63999 sind als Zeilennummern zugelassen. 


Zeilen, die nicht mit einer Zahl beginnen, werden nach Betätigung der RETURN-Taste so- 
fort interpretiert und ausgeführt. 


2.4 Ergebnisdarstellung 


In allen Fällen, bei denen nach Eingabe der RETURN-Taste ein Ergebnis angezeigt wurde, 
begann die übergebene Zeile mit einem Fragezeichen. Dieses sagt dem Rechner, daß er auf 
den Bildschirm ausgeben soll. Das gleiche Ergebnis wie in Übung a) hätten wir auch mit der 
Zeile 


PRINT 2+3 
erreicht. Wegen des geringeren Schreibaufwandes wird jedoch allgemein das Fragezeichen 
bevorzugt. 
PRINT ist das BASIC-Kennwort für Ausgabe. 
Bei der Ausgabe auf den Bildschirm darf statt PRINT ein Fragezeichen geschrieben 
werden. 
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Bei Programmzeilen verschwindet auch dieser optische Unterschied. Wenn Sie sich eine pro- 
grammierte Ausgabeanweisung erneut auf dem Bildschirm zeigen lassen (s. Kap. 4), wird 
stets das Wort PRINT geschrieben. 
Hinter dem Fragezeichen bzw. hinter PRINT dürfen mehrere durch Komma oder 
Semikolon getrennte Ausdrücke stehen. 


Wenn mehrere Ausdrücke aufgeführt sind, wie in Übung f), erscheinen die Ergebnisse neben- 
einander. Zu erklären, wie das im einzelnen geregelt wird, führt hier zu weit. Wir werden in 
Kapitel 5 näher darauf eingehen. 


2.5 Aufgaben 


2-1 Welche Bedeutung hat der Cursor? 
2-2 Was bewirkt die RETURN-Taste? 


2-3 Wie kann das Wort FLY, ohne die Buchstaben F, L oder Y erneut zu schreiben, in 
FLOPPY umgewandelt werden? 


2-4 Wie wird durch Ergänzung der Buchstaben B und R sowie mit den verschiedenen 
Spezialtasten das linksbündig geschriebene Wort UNSINN zu RUBIN? 


2-5 Wie reagiert der Rechner auf Zeilen, die mit einer Ziffer beginnen? 
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3 cbm-Arithmetik 


In diesem Kapitel soll die Arithmetik Ihres Rechners erörtert werden. Damit Sie sich bei den 
nachstehenden Übungen auf diesen Problemkreis konzentrieren können, sollten Sie kurz re- 
kapitulieren, was über den Cursor, die Cursorsteuerung und insbesondere die Korrektur von 

Tippfehlern gesagt wurde. Wenn Sie sich fit fühlen, schalten Sie den Rechner ein und begin- 

nen. 


a) Schreiben Sie 
? (22 - 29)*3/2 
und beenden die Zeile mit der RETURN-Taste. 
b) Schreiben Sie 


A = (22 - 29)*3/2 
?A 


wieder jeweils gefolgt von der RETURN-Taste. 


Ist Ihnen die Wirkung der RETÜRN-Taste klar? Wenn nicht, sehen Sie sich den betreffenden 
Abschnitt des vorigen Kapitels gleich noch einmal an. 

Auch die weiteren Beispiele sollen Sie, genau wie vorgeschrieben, Zeile für Zeile an den Rech- 
ner übergeben, und dazu müssen Sie ja jede Zeile mit der RETURN-Taste abschließen. Da 
Sie diese Notwendigkeit inzwischen kennen, wird von nun an nicht mehr auf das Betätigen 
dieser Taste hingewiesen. 


c) Schreiben Sie jetzt 


B= 213 
C=B-A]2 
?A,B,C 


Die mittlere Zahl, die 8, ist das Ergebnis von 213. Vielleicht haben Sie es erraten: ge- 
rechnet wurde 2° = 2*2*2=8. 


d) Vergewissern Sie sich, daß die Zahlen noch gespeichert sind: 
?A,B,C 
Schreiben Sie jetzt 
3D?A,B,C 
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Wissen Sie noch, warum diese Zeile nichts bewirkt? Sie wird als Programmzeile angese- 
hen und im Programmspeicher abgelegt. Nun soll das gespeicherte Programm (hier: eine 
Zeile) ausgeführt werden. Dafür schreibt man das Kommando 

RUN 
Falls wiederum nichts passiert, haben Sie die RETURN-Taste nicht betätigt. Tun Sie es! 
Zum Vergleich geben Sie jetzt noch einmal folgende Zeile ein: 

?A,B,C 


Registrieren Sie die Unterschiede in Ihren Anweisungen und in der Reaktion des Rech- 
ners, bevor Sie das nächste Experiment beginnen. 


e) Löschen Sie mit der CLR-Taste den Bildschirm. (Der Cursor blinkt links oben.) Schrei- 
ben Sie 


2D A=T:B=9 
?A,B 

Jetzt geben Sie das Kommando 
RUN 


Dieses Ergebnis wollen wir kurz erläutern. Sie haben mit dem Kommando RUN folgen- 
des Programm ausgeführt: 

2DA=7:B=9 

30 ?A,B,C 
Die Zeile mit der Nummer 30 stand nämlich noch im Programmspeicher, auf den sich 


das Löschen des Bildschirms nicht ausgewirkt hat. Ausgegeben wurden daher die in Zei- 
le 2® gesetzten Werte und für C der Wert 


f) Geben Sie nun folgende Zeilen ein: 


5ß?A,E,Z 
10A = 1.1 
30E=6-A12 
2DA=2.2 
40Z=5E+3 
RUN 


Versuchen Sie kurz, die Ergebnisse zu deuten. Das wird Ihnen leichter fallen, wenn Sie 
sich das Programm anzeigen lassen. Schreiben Sie 


LIST 


Abgesehen von der Ungenauigkeit bei der Berechnung von E ist das Ergebnis wohl plau- 
sibel. 


g) Jetzt wollen wir das Programm löschen: 
NEW 
Wer mißtrauisch ist, mag den Erfolg mit LIST bzw. RUN kontrollieren. 
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3.1 Zahlen 


Lassen Sie uns nun die Schreibregeln für Zahlen zusammenstellen. 
Eine Zahl wird als Folge von Dezimalziffern, ggf. mit einem Vorzeichen, geschrieben. 
Zahlen ohne Vorzeichen sind positiv. 
Zur Abgrenzung des gebrochenen vom ganzen Teil der Zahl dient der Dezimalpunkt! 
Hinter die Ziffernfolge dürfen der Buchstabe E und ein ganzzahliger Zehnerexponent 
gesetzt werden. 

Beispiele: 
-695 | 47.11 | 997 | + 79pE-2 | 7. 

Beispiele gleichwertiger Zahlen: 

05 | +95 | 5 | sIpe-3 | .M0SE2 | +.B5E +91 . 


Es soll noch einmal betont werden, daß anstelle des bei uns üblichen Dezimalkommas in 
BASIC der Dezimalpunkt zu schreiben ist. Ungewöhnlich ist für manchen Leser wohl auch 
die halblogarithmische Zahldarstellung. Diese dient besonders bei Zahlen mit sehr großem 
oder sehr kleinem Betrag als abkürzende Schreibweise. 


Wer sich bei Übung f) darüber gewundert hat, daß Z den Wert 5®®Q trug, hat inzwischen 
wohl die Erklärung gefunden: 5E + 3 heißt 5 19° und nicht „5 mal E plus 3“. 


3.2 Variablen 


Größen wie A und B heißen in BASIC Variablen. 
Jeder Variablen wird automatisch ein Speicherplatz zugeordnet. 


Auf dem Platz einer Variablen steht zu jeder Zeit genau eine Zahl, der Variablenwert, 
der durch geeignete Anweisungen verändert werden kann. 
Eine Variable wird über ihren Namen angesprochen. 
Zu unterscheiden ist jeweils zwischen dem Variablennamen und dem Variablenwert. Den 
Namen dürfen Sie als Adresse eines Speicherplatzes ansehen, während der Inhalt dieses 


Platzes den Wert bildet. Zwei Variablen X und Y sind also nicht von vornherein verschie- 
den. Sie belegen zwar jede einen eigenen Platz, aber die Werte können gleich sein. 


Wir müssen nun lernen, welche Variablennamen erlaubt sind. 


Variablennamen sind 1- oder 2-stellig. Das erste Zeichen muß ein Buchstabe, das 
zweite darf ein Buchstabe oder eine Ziffer sein. 


DS, FN, IF, ON, OR, ST, TI, TO 
dürfen nicht als Namen gewöhnlicher Variablen benutzt werden. 


Beispiele zulässiger Namen sind 
RO|IK|v2 ° 
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Es soll erwähnt werden, daß Ihr Rechner oft längere Namen zuläßt, z.B. ROSE oder ROST. 
Zur Identifizierung nutzt er aber nur die ersten beiden Zeichen, so daß RO, ROSE oder 

ROST demselben Speicherplatz zugeordnet sind. Wer diese Eigenart nicht ständig bedenkt, 
wird sich bei Verwendung längerer Namen manchen unnötigen Programmfehler einhandeln. 


Längere Namen werden zurückgewiesen, wenn sie ein BASIC-Wortsymbol enthalten (z.B. 
TO in OTTO). Das geschieht aber erst bei der Programmausführung, so daß Sie bei häufiger 
Verwendung eines solchen Namens viel Zeit für die Korrektur verschenken. Daher wird 
dringend geraten, für gewöhnliche Variablen höchstens 2 stellige Namen zu verwenden. 

TO ist als Variablenname verboten, weil es Bestandteil der Schleifenanweisung ist (s. Kap. 11). 
TI und ST sind Systemvariablen, die Sie zwar benutzen, aber nicht verändern dürfen. TI ent- 
hält die Zeit in sechzigstel Sekunden. Diese läuft vom Einschalten des Rechners bzw. von 
der letzten Wertzuweisung TI$ = ”’hhmmss‘‘, z.B. TI$ = 085509“ (s. Abschnitte 3.5 und 
5.1). ST wird bei jeder Datenübertragung zwischen dem Rechner und einem Peripheriegerät 
vom Rechner gesetzt. Das bietet die grundsätzliche Möglichkeit, über den Wert von ST auf 
die Ursache eventueller Störungen zu schließen. 


3.3 Arithmetische Operatoren 


Die Übungen dieses Kapitels haben gezeigt, daß Ihr Rechner addieren (+), subtrahieren (-), 
multiplizieren (*), dividieren (/) und potenzieren (t) kann. Im Gegensatz zur gebräuchli- 
chen Formelschreibweise müssen Sie in BASIC das Symbol für die gewünschte Rechenart 
stets schreiben. Bei der Multiplikation wird das von Anfängern gern vergessen, zumal wir ja 
gewohnt sind, den Term 


2ab 
einer algebraischen Formel als Produkt ‚2 mal a mal b‘‘ zu verstehen. In BASIC muß es aber 
2*A*B 
heißen. 
Oft führt ein vergessener Stern zu einem Verstoß gegen die BASIC-Regeln (z.B. 2AB oder 
2A*B), so daß der Rechner Ihnen die Nummer der fehlerhaften Zeile angeben kann. Mehr 
Kopfzerbrechen werden Ihnen die Fälle bereiten, bei denen die BASIC-Anweisung inhalt- 
lich falsch, aber formal richtig ist. Wenn Sie für das obige Produkt 2*AB codieren, heißt das 
Multiplikation mit dem Wert der Variablen AB. Da jeder Variablen beim ersten Auftreten 
ein Speicherplatz zugeordnet wird, ist ein Speicherplatzinhalt selbst dann vorhanden, wenn 
Sie den Variablenwert noch nicht definiert haben. 
Für den Fall, daß ein Operand wie die Zahl 7 in dem Ausdruck 


23-7/4 


zwischen zwei Operationszeichen steht, muß geregelt sein, in welcher Reihenfolge diese 
Operatoren abgearbeitet werden. Dazu wurde die bekannte Regel ‚Punktrechnung geht vor 
Strichrechnung‘‘ in BASIC übertragen und der Potenzierung ein noch höherer Rang einge- 
räumt. Soll von der hieraus resultierenden Reihenfolge bei der Berechnung eines Ausdrucks 
abgegangen werden, müssen Paare runder Klammern gesetzt werden. Damit ergibt sich fol- 
gende Rangordnung: 
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Symbol 


Klammern 












1 t Potenzierung 
2 * und / Multiplikation und Division 
3 + und — Addition und Subtraktion 





Falls ein Operand zwischen zwei Operatoren gleicher Rangstufe steht, wird der vordere 
der beiden zuerst wirksam. 


3.4 Arithmetischer Ausdruck 


Wenn man Zahlen oder Variablen durch arithmetische Operatoren verknüpft, erhält man ei- 
nen arithmetischen Ausdruck. 


Beispiele: 
Algebra BASIC 
at+tb A+B 
(b-7,5)c (B - 7.5)*C 
2x + 2y) 2/3*(x + 2*Y) 
4 * 
Dc A/(B*C) 
n A/B*C 
2,5[3(x -7,1)+b] 2.5*(3*(X - 7.1) + B) 
a+b 
erh (A + B)/(C+ D) 
a° + 3bx At5 + 3*B*X 
e+n Kt(5+N) ® 


Als weiterer Bestandteil dürfen in arithmetischen Ausdrücken noch Funktionen (s. Kap. 12) 
auftreten. Diese repräsentieren jeweils eine Zahl, den Funktionswert. Zu beachten ist, daß 
das Argument der Funktion stets eingeklammert werden muß. 


Beispiele: 
Algebra BASIC 
X SOR (X) 
1,% 1/A + SOR(B) 
V2,5y +t SOR (2.5*Y)+T 
a SOR ((3*N = 1)/(A + B)) 
_AIY (X - Y)/(3*SQR (2*(U + 2))) ° 


3V2(U +2) 
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Die Regeln für die Bildung arithmetischer Ausdrücke wollen wir noch einmal zusammenfas- 
sen: 


Ein arithmetischer Ausdruck enthält als Operanden Zahlen, Variablen oder Funk- 
tionen. 

Wenn 2 oder mehr Operanden auftreten, müssen sie durch arithmetische Operatoren 
verknüpft werden. 

Die Berechnungsreihenfolge ist grundsätzlich durch die Rangordnung der Operatoren 
bestimmt. 

Die Berechnungsreihenfolge kann über Paare runder Klammern gesteuert werden. 

Es dürfen überflüssige runde Klammernpaare gesetzt werden. 


3.5 Wertzuweisung 


Besondere Aufmerksamkeit verdienen die Zeilen, in denen ein Gleichheitszeichen steht, wie 
z.B. 


A = (22 - 29)*3/2 


Diese Zeile bewirkt folgende Aktionen: 


Subtrahiere 29 von 22. (Ergebnis ist -7) 
Multipliziere - 7 mit 3. (Ergebnis ist - 21) 
Dividiere - 21 durch 2. (Ergebnis ist - 19.5) 


Speichere - 19.5 auf dem Platz A. 

Sehen wir uns ein anderes Beispiel an. Die Zeile 
K=-K+l 

wird so verstanden: 


Hole die auf dem Platz K stehende Zahl. 
Addiere 1 hinzu. 
Speichere das Ergebnis auf dem Platz K. 


Bei diesem Speichervorgang wird der alte Wert von K zerstört, so daß mit der Anweisung 
K=K + 1 die auf dem Platz K stehende Zahl um 1 erhöht wird. Hier zeigt sich deutlich der 
Unterschied zu mathematischen Gleichungen. Als Gleichung aufgefaßt wäre K=K + 1 un- 
sinnig; denn nach Subtraktion von K ergibt sich der Widerspruch O = 1. 

In BASIC bedeuten die hier erörterten Zeilen Wertzuweisungen. Sie bewirken, daß der Wert 
eines arithmetischen Ausdrucks berechnet und gespeichert wird. Wohin gespeichert werden 
soll, wird durch Angabe einer Speicherplatzbezeichnung vor dem Gleichheitszeichen festge- 
legt, während hinter dem Gleichheitszeichen steht, wie die fragliche Zahl zu ermitteln ist. 
Ein arithmetischer Ausdruck liefert nach seiner Auswertung eine Zahl. Wenn diese für eine 
spätere Verwendung gespeichert werden soll, müssen Sie eine Wertzuweisung codieren. 


Die allgemeine Form der Wertzuweisung ist 
Variable = arithmetischer Ausdruck. 
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Wie oben bereits erläutert, bewirkt diese Anweisung, daß der Wert des rechts stehenden 
Ausdrucks ermittelt und auf den Platz der links stehenden Variablen gespeichert wird. 


Daraus folgt beispielsweise, 
xX=UundU=X sind in BASIC nicht gleichwertig. 


Nach X = 1: U = 2: X = U haben beide Variablen den Wert 2. 
Nach X = 1: U = 2: U = X haben beide Variablen den Wert 1. 


Beispiel: Eine auf dem Platz X stehende Zahl, z.B. ein Preis in DM, soll auf die zweite 
Nachkommastelle gerundet werden. 

Bei derartigen Rundungsproblemen greift man auf die Funktion INT zurück (s. Kap. 12), 
mit der der ganzzahlige Teil einer Zahl ermittelt wird. INT (4.1) ergibt 4, aber INT (4.99) 
ebenfalls. Übliche Rundungskonvention hingegen ist, ab einschließlich 0.5 aufzurunden. 
Um dafür INT einsetzen zu können, muß für eine Rundung das Argument vorher um 9.5 
erhöht werden. INT (4.99 + 9.5) ergibt genauso wie INT (4.5 + 0.5) und INT (5.49 + 9.5) 
eine 5. In unserem Beispiel muß vor und nach dem Abschneiden des gebrochenen Teils 
noch um 2 Dezimalstellen verschoben werden. Daher lösen wir unser Problem mit der Wert- 
zuweisung 


X = B.d1*INT(100*X + 9.5) ® 


3.6 Integer-Variablen 


Für Leser, die nur gelegentlich programmieren wollen oder wenig Programmiererfahrung 
haben, ist der in diesem Abschnitt dargestellte Stoff entbehrlich. Sie sollten diesen Abschnitt 
übergehen. Wir haben ihn nur aufgenommen, um denen, die besonders große und besonders 
komplizierte Programme erstellen, weitergehende Möglichkeiten des cbm-BASIC aufzuzei- 
gen. 

Für numerische Probleme steht ein zweiter Variablentyp zur Verfügung: Integer. 


Namen von Integer-Variablen bestehen aus dem Namen einer gewöhnlichen Variab- 
len, dem das Prozentzeichen angefügt ist. 


Beispiele zulässiger Integer-Namen sind 

A% | BI% | HH% ® 
Zwischen einer Integervariablen und der gewöhnlichen Variablen, die man nach Weglassen 
des Prozentzeichens erhält, besteht kein zwangsläufiger Zusammenhang. Beide dürfen im 
selben Programm auftreten. 
Integer-Variablen sind nur zur Speicherung ganzer Zahlen geeignet, wofür intern 16 Bit be- 
legt werden. Das erste Bit enthält das Vorzeichen. Der Betrag der Zahlen ist begrenzt auf 
21° - 1 = 32767. 
Neben der Verwendung in arithmetischen Ausdrücken dürfen Integer-Variablen auch mit 


den logischen Operatoren NOT, AND und OR verknüpft werden, die dann bitweise wirken. 
Eine weitergehende Erläuterung hierzu finden Sie in den cbm-Handbüchern. 
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3.7 Aufgaben 


3-1 Welche Funktion hat das Fragezeichen? Ist sein Platz in der Eingabezeile für seine Funk- 
tion wesentlich? 


3-2 Übertragen Sie den Ausdruck a? + ab + b? in BASIC und lassen Sie ihn für a= 2 und 
b = 3 berechnen. 


3-3 Codieren Sie in BASIC: wer Lassen Sie den Ausdruck zur Kontrolle für x = 12,25, 
y = 3,5 und z = 3,5 berechnen. 
12 
3-4 Lassen Sie er berechnen und speichern. Zeigen Sie das Ergebnis auf dem Bild- 


schirm an. Benutzen Sie die Zahlen aus Aufgabe 3-3. 


3-5 Was ist eine Variable? 
Wie werden Variablennamen geschrieben? 
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4 Programmaufbau und -ausführung 


In diesem Kapitel wollen wir üben, mit Programmen umzugehen. 

Zur Vermeidung von Irrtümern wird betont, daß in den nachstehenden Übungen — und 
das gilt auch für die weiteren Kapitel — jeweils nur aufgeführt ist, was Sie schreiben sollen. 
Auf dem Bildschirm werden weitere Zeilen erscheinen, die der Rechner von sich aus zeigt. 


a) Schreiben Sie die folgenden Zeilen: 

NEW 

LIST 

20A=2 

70?A 

6GA=-A+I 
A=5 

LIST 

Beachten Sie die unterschiedliche Wirkung des LIST-Kommandos. 


b) Lassen Sie das Programm ausführen, nachdem Sie den Wert von A überprüft haben. 
Schreiben Sie deshalb 
A 
RUN 
Wiederholen Sie das Ausführungskommando: 
RUN 
c) Das Programm kann auch anders gestartet werden. Schreiben Sie 
GOTO 69 
Setzen Sie jetzt fort mit 
A= 29 
GOTO 69 
Da das Programm zwischenzeitlich nicht verändert wurde, sind die unterschiedlichen Er- 
gebnisse durch verschiedene Startwerte von A bedingt. Welche Startwerte wurden tat- 
sächlich benutzt? Ist das Programm wirklich unverändert geblieben? Lassen Sie es zur 
Kontrolle anzeigen. 


d) Nun wollen wir das bisher benutzte Programm verändern. Schreiben Sie 


20A=5:B=3 
80?A,B 
70B=B-1 


RUN 
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Starten Sie das Programm noch einmal mit 

GOTO7® 
Die Deutung der Ergebnisse wird sicher erleichtert, wenn Sie das Programm vor Augen 
haben. Schreiben Sie deshalb 

LIST 


e) Auch auf folgende Weise kann ein Programm gestartet werden: 
RUN 70 
Rekonstruieren Sie die benutzten Startwerte. 


f) Schreiben Sie jetzt 


RUN 
LIST 69 


Bewegen Sie den Cursor auf das Plus-Zeichen, betätigen die Minus-Taste und dann die 
RETURN-Taste. Setzen Sie den Cursor unter READY und starten Sie das Programm er- 
neut. 


4.1 Programmbegriff 


In Kapitel 1 haben wir den Begriff Programm inhaltlich erklärt als zeitliche Folge der An- 
weisungen, die ein vorgelegtes Problem lösen. Daneben steht der rein formale Programmbe- 
griff Ihres Rechners. Wie Sie sich erinnern, werden Zeilen, die nicht mit einer Zahl begin- 
nen, nach Betätigung der RETURN-Taste sofort ausgeführt. Die anderen hingegen werden 
gespeichert. 


Ein Programm ist die Gesamtheit der im Rechner gespeicherten, mit einer Zahl be- 
ginnenden Zeilen. 


Es obliegt dem Programmierer, die beiden Programmbegriffe zur Deckung zu bringen. 


Neben der erwähnten Kennzeichnung der Programmzeilen dient die Zeilennummer noch 
verschiedenen anderen Zwecken. Das Programm aus Übung a) hätten Sie auch in der Rei- 
henfolge 


70?A 
6A=-AH+I 
20A=2 


eingeben können. Wenn Sie sich dann mit LIST das aktuelle Programm zeigen lassen, erhal- 
ten Sie wieder 


2DA = 2 
6BA=-A+I 
70?A 


Ausschlaggebend sind also die auftretenden Zeilennummern und nicht ihre Reihenfolge bei 
der Eingabe. Halten wir fest: 


Die Programmzeilen werden vom Rechner aufsteigend nach der Zeilennummer 
sortiert. 
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Diese Reihenfolge ist auch für die Programmausführung maßgebend, solange nicht mit 
speziellen Anweisungen in den Ablauf eingegriffen wird. 


Die Programmzeilen werden in aufsteigender Folge der Zeilennummern ausgeführt. 


Mitunter ist es angebracht, mehrere Anweisungen in eine Zeile zu schreiben. Dabei ist zu 
beachten: 


Wenn in einer Zeile mehrere Anweisungen stehen, müssen sie durch einen Doppel- 
punkt getrennt werden. 

Stehen in einer Zeile mehrere Anweisungen, werden sie von links nach rechts abge- 
arbeitet. 


Dem Anfänger wird jedoch geraten, nur eine Anweisung pro Zeile zu schreiben. Außerdem 
sollte er sich angewöhnen, Zeilennummern nicht fortlaufend, sondern mit einer Schritt- 
weite von mindestens 1® zu vergeben. Ist beides beachtet worden, wird es nämlich beson- 
ders einfach, in einem bestehenden Programm Anweisungen zu ergänzen, und das ist selbst 
nach längerer Programmiererfahrung oft erforderlich. 

Neben den ausführbaren Anweisungen dürfen in ein Programm auch Bemerkungen einge- 
fügt werden. 


Bemerkungen schreibt man in der Form 
REM beliebiger Text. 


Beispiel: REM PROGRAMM XXX, LETZTE AENDERUNG YYY © 


Formal werden Bemerkungen wie gewöhnliche Anweisungen behandelt. Der Unterschied 
zeigt sich erst während der Programmausführung. Wenn der BASIC-Interpreter das Befehls- 
kennwort REM findet, ignoriert er den Rest der Zeile. Daher dürfen Sie Bemerkungen auch 
hinter ausführbare Anweisungen setzen, natürlich durch einen Doppelpunkt getrennt. 
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Nehmen wir an, zwischen B=B -1 und ?A, B in Übung d) soll die Anweisung ?A*B einge- 
fügt werden. Dann gelingt das durch die Zeile 


75?A*B 
Diese wird ja wegen der automatischen Sortierung zwischen die Zeilen mit den Nummern 
70 und 89 eingeschoben. Merken wir uns: 


Eine Anweisung wird in ein Programm eingefügt, wenn man sie als Zeile mit einer ge- 
eigneten neuen Zeilennummer eingibt. 


Lassen Sie uns nun verfolgen, was in Übung d) bei der Eingabe der Zeile 


20A=5:B=3 
in das Programm 

20A=2 

6A=A+I 


70?A 
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passierte, das die Zeile 20 schon enthielt. Das LIST-Kommando zeigte uns die Wirkung: 


20A=5:B=3 
6A=-AH+] 
USW. 


Die alte Zeile 2® ist also durch die neue ersetzt worden. Diesen Vorgang nutzen wir für das 
Ändern von Anweisungen: 


Eine Zeile wird geändert, indem man ihre Zeilennummer und den vollständigen neuen 
Zeileninhalt eingibt. 


Auf dem gleichen Prinzip basiert auch das Löschen einzelner Anweisungen. Wollen wir etwa 
die Zeile 


6A=-AH+I 
entfernen, überschreiben wir sie durch 
60 (RETURN-Taste nicht vergessen!) 


Eine Zeile wird gelöscht durch Eingabe der betreffenden Zeilennummer (und Betäti- 
gung der RETURN-Taste). 


Mit dem NEW-Kommando wird das ganze Programm gelöscht. 


Das Ändern von Zeilen scheint auf den ersten Blick unbefriedigend, weil selbst bei Korrek- 
tur nur eines Zeichens die ganze Zeile eingegeben werden muß. Bei genauerer Betrachtung 
zeigt sich aber, daß nicht alle Zeichen der Zeile neu geschrieben werden müssen. Eingeben 
in den Rechner heißt doch, die RETURN-Taste zu drücken, wobei die Bildschirmzeile über- 
geben wird, in der der Cursor gerade blinkt. Es ist gleichgültig, wie diese Bildschirmzeile ent- 
standen ist. Sie dürfen auch nach einem LIST-Kommando den Cursor in die zu ändernde 
Zeile bewegen. Dann nehmen Sie die notwendigen Änderungen vor, notfalls unter Einschluß 
der Tasten INST und DEL, und drücken die RETURN-Taste. 


4.3 Anzeige von Programmzeilen 


Das oben geschilderte Vorgehen bei der Korrektur von Anweisungen wird noch effektiver, 
wenn man jeweils nur einen Teil des Programms auflistet. In Übung f) haben Sie bereits ge- 
sehen, wie eine einzelne Zeile aus dem Programmspeicher auf den Bildschirm geholt wird. 
Daneben stehen aber weitere Varianten des LIST-Kommandos zur Verfügung, die nachste- 
hend aufgeführt sind. 


Kommando Wirkung 

LIST führt zur Anzeige des ganzen Programms 

LISTm-n zeigt die Zeilen von Nummer m bis einschließlich Nummer n 
LIST-n zeigt die Zeilen von Nummer ® bis einschließlich n 

LISTm- zeigt die Zeilen von Nummer m bis einschließlich Nummer 63999 


LISTk zeigt die Zeile k 
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Wenn Sie einen Abschnitt Ihres Programms auflisten lassen, geschieht das gewöhnlich 
schneller, als Sie lesen können. Sie können das Tempo einer Bildschirmausgabe jedoch 
beeinflussen (cbm 8001): 


Mit der Taste wird die Bildschirmausgabe angehalten. 


Mit der Taste wird eine gestoppte Bildschirmausgabe fortgesetzt. 
Ständiges Niederhalten der Taste führt zu langsamer Ausgabe. 


4.4 Programmausführung 


Die Ausführung eines Programms kann mit verschiedenen Kommandos veranlaßt werden. 

Im Normalfall ist das RUN, womit das Wort und nicht die RUN-Taste gemeint ist. 

| Nach RUN wird das Programm ausgeführt. Begonnen wird in der Zeile mit der klein- 
sten Zeilennummer. 


Als Nebenwirkung des RUN-Kommandos ist zu notieren, daß zu Beginn der Ausführung 
alle numerischen Variablen den Wert ® haben. 


| RUN löscht alle Variablen. 


In der Testphase bringt es oft Vorteile, einen Lauf mitten im Programm zu beginnen und 
nicht bei der kleinsten Zeilennummer. Für diese Verlegung des Programmanfangs auf eine 
Zeile mit der Nummer n gibt es 2 Kommandos. Sie unterscheiden sich in ihrer Wirkung auf 
die Variablen. Diese können wahlweise gelöscht oder ihre aktuellen Werte beibehalten wer- 
den. 
Nach GOTO n wird bei Zeilennummer n beginnend das Programm ausgeführt. Die 
Variablen behalten ihren aktuellen Wert. 
Nach RUN n wird bei Zeilennummer n beginnend das Programm ausgeführt. Alle Va- 
riablen werden gelöscht. 


Beispiele sehen Sie in den Übungen c) und e). 
Ein weiteres Spezialkommando gestattet die Fortsetzung des Programms nach einer Unter- 
brechung. 
Nach einer Unterbrechung wird mit CONT die Programmausführung fortgesetzt. Die 
Variablen behalten ihren aktuellen Wert. \ 
Nach einer Fehlermeldung kann nicht mit CONT fortgesetzt werden. 
Zwei Möglichkeiten zur Unterbrechung eines Programms durch einen Eingriff des Be- 
nutzers (der Erfolg wird durch READY angezeigt) wollen wir hier nennen. 
Mit der STOP-Taste kann das Programm unterbrochen werden. 


Wenn Eingabedaten erwartet werden, wird das Programm durch Eingabe einer leeren 
Bildschirmzeile unterbrochen. 
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Die Ausführung eines Programms kann auch durch einprogrammierte Anweisungen beendet 
werden. 


END beendet die Ausführung. 
STOP beendet die Ausführung unter Angabe der aktuellen Zeilennummer. 
Gerade in der Testphase werden Sie hiervon gern Gebrauch machen. 


Sie können den aktuellen Stand einer Variablen, z.B. X, mit 
?%X 
anzeigen lassen. 





Dadurch erhalten Sie Gelegenheit, den momentanen Stand des Programms zu kontrollie- 
ren, und können die Ausführung anschließend mit CONT fortsetzen. 


Was ist aber zu tun, wenn Sie einen geringfügigen Fehler entdeckt haben und nach dessen 
Behebung den Programmlauf mit den aktuellen Variablenwerten fortsetzen wollen? Die so- 
fortige Korrektur fehlerhafter Zeilen entfällt; denn bei jedem Eingriff in den Programm- 
speicher werden alle Variablen gelöscht. Hingegen dürfen Sie wie in Übung c) Variablen- 
werte setzen, d.h. fehlerhafte Zahlen korrigieren. Als Kommando für die Fortsetzung des 
Programmlaufs stehen Ihnen dann CONT oder GOTO mit geeigneter Zeilennummer n zur 
Verfügung. 


4.5 Speicherbelegung 


In Kapitel 2 wurde schon erwähnt, daß der Speicher Ihres Rechners verschiedene Bereiche 
enthält. In einem sind alle Bildschirmzeilen abgelegt, in einem anderen die Programmzeilen, 
und in einem dritten Bereich liegen die Variablen. Sie kennen bereits Kommandos und Spe- 
zialtasten (z.B. NEW, CLR), mit denen einzelne dieser Bereiche gelöscht werden. Daneben 
haben Sie in den obigen Übungen gesehen, daß der Variablenbereich auch durch das RUN- 
Kommando gelöscht wird, während die Variablen bei einem Programmstart mit einem 
GOTO-Kommando erhalten bleiben. 


Auch für die Belegung der 3 genannten Speicherbereiche gibt es mehrere Varianten. Welche 
Eingabe- und Löschmöglichkeiten Ihnen zur Verfügung stehen, können Sie aus Bild 4.1 ent- 
nehmen. 


4.6 Aufgaben 


4-1 Wozu dient die STOP-Taste? 
4-2 Geben Sie folgendes Programm ein: 


1A = 4 
2DA = A*X 
30? A 


Wie können Sie im voraus sicherstellen, daß keine weiteren Zeilen im Programmspeicher 
stehen? 


4.6 Aufgaben 


Speicherbereich 


Bildschirm — Betätigung von Tasten Alles: 































— LIST-Kommando — CLR-Taste 
— Ausgeführte PRINT- Ein Zeichen: 
— DEL-Taste 


Anweisung 







Programmtext — Zeilenweise aus dem Alles: 
Bildschirmbereich mit — NEW-Kommando 
Cursor und RETURN- Eine Zeile: 


Taste 
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— Zeilennummer und 
RETURN-Taste 













Alles: 
— CLR-Kommando 
(auch programmierbar) 


— NEW-Kommando 
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— Automatische Platz- 
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Bild 4.1: Speicherbelegung 


Wie können Sie im nachhinein nachweisen, daß keine weiteren Programmzeilen ge- 


speichert sind? 
4-3 Starten Sie das Programm aus Aufgabe 4-2. 
Warum wird die Zahl ® ausgegeben? 
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4-4 Wie können Sie ohne Programmänderung erreichen, daß das Programm aus Aufgabe 


4-2 eine 1 ausgibt? 
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5 Ausgabe auf den Bildschirm 


Wie wir schon aus Kapitel 2 wissen, werden die Ergebnisse eines Programmlaufs mit dem 
PRINT-Kommando auf dem Bildschirm angezeigt. Außerdem wissen wir, daß wir dieses 
Kennwort nicht ausschreiben müssen, sondern mit dem Fragezeichen abrufen können. In 
diesem Kapitel, besonders in den Experimenten, sollen Sie nun das Ausgabekommando 
näher kennenlernen. 
a) Löschen Sie den Programmspeicher und schreiben Sie 
X = 31:7”X“ 
Anschließend 
?Xx 
und dann 
?’X=,X 
b) Schreiben Sie 
108 E = 1.2E6 
110 U8 = "UMSATZ =“ 
130 ?U$;E;”DM“ 
Lassen Sie das Programm ausführen. 
c) Ergänzen Sie jetzt die Zeile 
120 ?’AUSSEN“'; 
und lassen Sie das Programm erneut laufen. Sehen Sie sich die Abstände zwischen den 
Zahlen und Strings genau an. (Ein String ist eine Zeichenkette wie z.B. DM.) 


d) Schreiben Sie erneut die Zeile 
120 ? ”Yy AUSSEN“; 


wobei jeder der Pfeile das einmalige Betätigen der Taste ‚‚Cursor abwärts‘‘ symbolisiert. 
Lassen Sie das Programm wiederum laufen. 


e) Ersetzen Sie in Zeile 13® die Semikolons durch Kommas und sehen Sie sich an, wie da- 
durch die Ausgabezeile verändert wird. 


f) Schreiben Sie 


110 T18= ”EINNAHMEN“ 

120 T2$ = ’"KOSTEN‘“: K = 0.63*E 

130 T3$ = "GEWINN“:G =E-K 

149 ?T18;E: ?T2$;K: ?:? T3$;G 
und lassen Sie das Programm laufen. 
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g) Jetzt wollen wir die Zahlen als Kolonne schreiben. Ergänzen Sie in Zeile 149 hinter je- 
dem der 3 Semikolons 
TAB(15); 
und starten Sie das Programm erneut. 


h) Die Position eines Ausgabewertes kann nicht nur absolut, sondern auch relativ zum Vor- 
gänger positioniert werden. Dafür müssen Sie in Zeile 149 alle TAB-Angaben entfernen 
und wie folgt ersetzen: 

SPC (3) zwischen die Semikolons vor E 
SPC (7) zwischen die Semikolons vor K 
SPC (7) zwischen die Semikolons vor G 


Sehen Sie sich die Wirkung an. 


5.1 Textdarstellung 


Sie haben gesehen, daß der Rechner sowohl Zahlen als auch Zeichenketten ausgeben kann. 
Soll der Inhalt des Speicherplatzes X dargestellt werden, schreibt man 


%X 
Durch die Anweisung 
2% 
wird dagegen der Buchstabe X ausgegeben, ein sog. String. 


Ein String ist eine Folge beliebiger Zeichen, die am Anfang und am Ende durch An- 
führungszeichen begrenzt ist. 

Alle Spezialtasten mit Ausnahme der DEL-Taste werden nicht sofort ausgeführt, son- 
dern als Teil des Strings gespeichert (und ggf. später ausgeführt), wenn sie innerhalb 
der Anführungszeichen betätigt werden. 

Sollen die Steuertasten wieder normal funktionieren, muß die ESC-Taste gedrückt 
werden. 


Bei der Korrektur von Tippfehlern beim Aufbau eines Strings werden Sie die Cursor-Steuer- 
tasten womöglich vermissen. Anstatt mit der DEL-Taste rückwärts alle Zeichen bis zum 
Fehler zu löschen, können Sie auch wie folgt vorgehen: Sie schreiben den String zu Ende 
und drücken die RETURN-Taste. Danach funktionieren die Spezialtasten wieder normal. 
Sie können den Cursor auf die fehlerhafte Stelle fahren, korrigieren in gewohnter Weise und 
geben erneut die RETURN-Taste. 
Die Programmierbarkeit der Spezialtasten bietet dem Benutzer u.a. die Möglichkeit, Ausga- 
bewerte an beliebiger Stelle des Bildschirms zu plazieren. Häufig soll auch vor der eigentli- 
chen Ausgabe der Bildschirm gelöscht werden. Dieses Löschen geschieht ja mit der CLR- 
Taste (SHIFT nicht vergessen!), die in einen String zu setzen ist. Die Anweisung sieht dann 
so aus: 

a v ii 


Der Bildschirm wird gelöscht, wenn diese Anweisung ausgeführt wird. 
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Die vorangegangenen Übungen haben ferner gezeigt, daß es im cbm-BASIC neben den oben 
erklärten String-Konstanten auch String-Variable gibt. In Zeile 110 aus Übung b) haben wir 
davon Gebrauch gemacht und den String "UMSATZ = “ auf der Variablen U$ gespeichert. 


Namen von Stringvariablen bestehen aus dem Namen einer gewöhnlichen Variablen, 
dem das Dollarzeichen angefügt ist. 


TI$ ist eine Systemvariable, sie enthält die Zeit in der Form "”"hhmmss“. 


DS$ ist ebenfalls eine Systemvariable, die für den Datenaustausch mit der floppy- 
disk vorgesehen ist. 


Abgesehen von den Systemvariablen TI und TI$ besteht zwischen einer Stringvariablen und 
der gewöhnlichen Variablen, die man nach Weglassen des Dollarzeichens erhält, kein 
zwangsläufiger Zusammenhang. Bei der Vergabe von Namen für Stringvariable braucht man 
keine Rücksicht auf benutzte gewöhnliche Variablen zu nehmen und umgekehrt. 


5.2 Ausgabeanweisung 


Fast alle bisherigen Übungen enthielten Ausgabeanweisungen. Deshalb sind Ihnen die nach- 
folgenden Regeln für diesen Befehlstyp wahrscheinlich schon geläufig. 
Die allgemeine Form der Ausgabeanweisung lautet 
PRINT Liste bzw. ?Liste 
In der Liste stehen Strings (als Konstante oder Variable) oder arithmetische Aus- 
drücke (s. Kap. 3). 
Die Bestandteile der Liste müssen durch Komma oder Semikolon getrennt, die Liste 
darf mit einem solchen Trennzeichen beendet werden. 
Die Liste darf fehlen. 


Durch die Ausgabeanweisung werden die Strings oder die Werte der arithmetischen Aus- 
drücke aus der Liste auf dem Bildschirm dargestellt. Deshalb mutet es wohl seltsam an, daß 
diese Liste fehlen darf. In diesem Falle wird natürlich nichts ausgegeben. Es wird nur der 
Cursor an den Anfang der nächsten Bildschirmzeile gesetzt. 


Zum Platzbedarf der Ausgabe auf dem Bildschirm ist festzuhalten: 


Ein String belegt für jedes seiner Zeichen eine Stelle. 


Der Platzbedarf einer Zahl wird durch die Anzahl ihrer Ziffern festgelegt zuzüglich 
einer Stelle für das Vorzeichen. 


Sollen in einer Zeile mehr Zeichen ausgegeben werden als der Bildschirm darstellen 
kann, wird der Überhang in die nächste Zeile gesetzt. 


Falls Sie eine längere Tabelle auf den (cbm 8001) Bildschirm legen wollen, müssen Sie 
nicht unbedingt im Programm auf die Zahl der Bildschirmzeilen Rücksicht nehmen. Sie 
können später die laufende Bildschirmausgabe genau wie nach einem LIST-Kommando 
(s. Abschnitt 4.3) durch besondere Tasten anhalten, wieder fortsetzen oder langsam 
laufen lassen. 
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5.3 Positionierung der Ausgabe 


Wenn Sie die Übungen c) und e) korrekt ausgeführt haben, haben Sie folgende Ausgabe- 
zeilen erhalten. 

Bei c: AUSSENUMSATZ= 1200000 DM 

Bei e: AUSSENUMSATZ= 1200000 DM 


Das Komma in der Ausgabeliste führt also zu größeren Abständen als das Semikolon. Be- 
achten Sie auch, daß das Wort AUSSEN mit der Ausgabeanweisung aus Zeile 129 und der 
Rest mit der aus Zeile 13® geschrieben wurde. So können die Daten einer Bildschirmzeile 
also von verschiedenen PRINT-Anweisungen stammen, während die Daten einer PRINT-An- 
weisung stets in eine Bildschirmzeile gesetzt werden. Der genaue Aufbau der Ausgabezeilen 
wird verständlich, wenn Sie sich folgende Regeln ansehen. 


Jede 10. Stelle der Ausgabezeile ist vortabuliert. Mit dem Komma wird zur nächsten 
Tabulatorstelle vorgerückt. 

Hinter einem arithmetischen Ausdruck bewirkt das Semikolon einen Abstand von ei- 
ner Stelle zum nächsten Zeichen. Hinter einem String unterdrückt das Semikolon den 
Vorschub. 

Endet eine PRINT-Anweisung nicht mit einem Trennzeichen, steht der Cursor vor 
der nächsten Ein- oder Ausgabe am Anfang der nächsten Zeile. 


Von diesen Standardfestlegungen für eingeschobene Leerstellen und Tabulatorpositionen 

kann jedoch abgewichen werden. Dazu muß in die Ausgabeliste vor den Wert, der absolut 
(TAB) oder relativ zum Vorgänger (SPC) positioniert werden soll, eine entsprechende An- 
gabe eingefügt werden. Diese sollte durch Semikolons begrenzt werden, weil ihre Wirkung 
sonst durch die Vorschubwirkung des Kommas verfälscht wird. 


Mit SPC (n) werden n Leerstellen ausgegeben. 
Mit TAB(n) wird hinter die nte (also auf die (n + 1)te) Ausgabestelle vorgerückt. 


Als .n darf ein arithmetischer Ausdruck geschrieben werden, dessen Wert zwischen 
® und 255 liegt. 


Beachten Sie, daß mit TAB nicht zurückgegangen werden kann. Die TAB-Anordnung wird 
ignoriert, wenn der Cursor schon hinter der angesprochenen Position steht. Außerdem müs- 
sen Sie bedenken, daß Sie z.B. mit TAB (1) auf die 2. Stelle der aktuellen Zeile positionie- 
ren. Diese Ungereimtheit liegt daran, daß rechnerintern die 1. Stelle die Adresse ®, die 

2. Stelle die Adresse 1 hat usw., so daß mit TAB (n) auf die nte Stelle bei interner Zählwei- 
se vorgerückt wird, und das ist die (n + 1)te Stelle bei der üblichen Zählweise. 


5.4 Bildschirmfunktionen 
Der Stoff dieses Abschnitts ist erst erforderlich, wenn besonders komfortable bzw. auf- 


wendige Bildschirmausgaben zu erstellen sind. Der Anfänger sollte deshalb diesen Abschnitt 
übergehen und erst zurückkehren, nachdem er sich Kapitel 13 erarbeitet hat. 
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Geräte der Serie cbm 8001 verfügen über einige Bildschirmfunktionen, die jedoch nach 
dem Stand von Ende 1981 nicht über spezielle Tasten angesprochen werden können. Sie 
lassen sich über PRINT-Kommandos aktivieren, mit denen die entsprechenden Codes zum 
Bildschirm gesendet werden. 


Bildschirmfunktionen werden aktiviert, wenn 

CHR$ (n) 

mit einem der nachstehend genannten Werte von n in einem PRINT-Kommando 
an den Bildschirm übergeben wird. 


Wirkung auf aktuelle Cursorposition 


linke obere Fensterecke definieren 
rechte untere Fensterecke definieren 
Zeile entfernen 


Zeile einfügen 

Rest der Zeile löschen 
Anfang der Zeile löschen 
Fensterinhalt aufwärts rollen 
Fensterinhalt abwärts rollen 





Beispiel: 
PRINT CHR$ (150); CHR$ (22); 
löscht die aktuelle Cursorzeile. 


Unter einem Fenster versteht man einen rechteckigen Bildschirmausschnitt, der durch 
seine linke obere und rechte untere Ecke definiert wird. Der Cursor muß zuvor auf die 
fragliche Position bewegt werden (z.B. durch programmierte Steuertasten in einem Aus- 
gabestring mit nachfolgendem Semikolon). Anschließend gibt man CHR$ (15) bzw. 
CHR$ (143). Wurde ein Fenster definiert, spielen sich alle Bildschirmaktivitäten, z.B. 
LIST, darin ab. Der Rest des Bildschirms bleibt geschützt. Eine Rückkehr zum Urzustand, 
bei dem der ganze Bildschirm ein Fenster darstellt, wird durch zweimaliges Betätigen der 
HOME -Taste erreicht. 


Eine (Fenster-) Zeile entfernen heißt, die Zeile zu streichen, in der der Cursor steht. Alle 
nachfolgenden Zeilen rücken um eine nach oben, und am unteren Rand wird eine Leer- 
zeile eingesetzt. 


Eine (Fenster-) Zeile einfügen heißt, die unteren Zeilen einschließlich der momentanen 
Cursorzeile um eine nach unten zu rücken, so daß die unterste Zeile verloren geht. Der 
Cursor bleibt in seiner Position. Die Cursorzeile ist nach dieser Aktion leer. 


Das Löschen eines Teils der Cursorzeile schließt jeweils die momentane Cursorposition ein, 
so daß sowohl über den Code für Zeilenanfang löschen als auch für Zeilenende löschen bei 
geeigneter Cursorposition die ganze Zeile gelöscht werden kann. 


Manchem Leser wird sich hier die Frage stellen, wie von einem Programm aus der Cursor 
in eine bestimmte Position gebracht werden kann. Dazu ein Lösungsvorschlag. In eine 
Stringvariable Z# speichern Sie einmal die Taste HOME und 24mal die Taste "Cursor ab- 
wärts‘“. 
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Dann können Sie den Cursor mit 


PRINT LEFT$ (Z$,M+1);TAB (N); 


nach Zeile M und Spalte N bringen. Beachten Sie bitte, daß jeweils ab ® gezählt wird, d.h. 
die oberste Zeile ist Zeile ®, die vorderste Spalte ist Spalte ® usw. 


5.5 Aufgaben 


An dieser Stelle scheint ein grundsätzlicher Hinweis zur Bearbeitung der Aufgaben ange- 
bracht. 

Je weiter Sie sich die Sprache BASIC erarbeiten, desto unwahrscheinlicher wird es, daß 
Ihre Lösungen mit den angegebenen Musterlösungen identisch sind. Sie brauchen also einen 
anderen Weg, um Ihre Lösung überprüfen zu können. Benutzen Sie dafür den Rechner, wann 
immer das möglich ist! 

Auch wenn im Aufgabentext nicht ständig darauf hingewiesen wird, kann fast immer mit 
wenigen Zusatzbefehlen ein kleines Programm formuliert werden, das die aktuelle Aufgabe 
einschließt. Lassen Sie dieses Programm laufen, sehen Sie sich Zwischenergebnisse an, vari- 
ieren Sie die Ausgangswerte, und Sie werden bald erkennen, ob Sie die jeweilige Aufgabe 
gelöst haben. Schon die nachstehenden Aufgaben sollten Sie in diesem Stil bearbeiten. 


5-1 Wir nehmen an, daß auf den Variablen A und B Zahlen mit je max. 5 Ziffern stehen. 
Schreiben Sie eine Ausgabeanweisung, mit der der Wert von A ab Stelle 21 und der 
Wert von B in der gleichen Zeile ab Stelle 11 ausgegeben werden. 
5-2 Wie erreichen Sie mit getrennten Ausgabeanweisungen für A und B die gleiche Ausga- 
bezeile wie in Aufgabe 5-1? 
5-3 Der Inhalt des Speicherplatzes G, hier durch xxx repräsentiert, soll in folgender Form 
ausgegeben werden: 
GEWICHT: xxxKG 
Schreiben Sie die Ausgabeanweisung hierfür so, daß vor und hinter xxx möglichst 
wenig Leerstellen auftreten. 
5-4 Wie erreichen Sie folgende Anordnung der Ausgabe? 
GEWICHT 
xxx KG 
Dabei sollen vor Gewicht 3 Leerstellen erscheinen und für Werte von G zwischen 
100 und 999 soll KG unter HT stehen. 
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Damit Sie Ihre Programme vielfach und vor allem unverändert verwenden können, müssen 
Sie diese weitgehend unter Benutzung von Variablen formulieren. Als Konstante sollten 
Sie nur Universalkonstanten, wie z.B. m, oder Systemkonstanten einprogrammieren. Dar- 
unter versteht man Zahlen, die für eine Problemklasse konstant sind, aber nicht das Einzel- 
problem beschreiben. So könnte man die 2 in der Kreisumfangsformel U = 2rrR als System- 
konstante bezeichnen, während der Radius R natürlich den konkreten Kreis beschreibt. 
Die Kenngrößen des speziellen Problems müssen dem Rechner bekannt gemacht werden. 
Da Sie diese aber nicht als Konstanten einprogrammieren sollen, müssen Sie Eingabeanwei- 
sungen (INPUT, READ) für entsprechende Variablen schreiben. Die Zahlen werden dann 
während der Ausführung aus einer DATA-Zeile (READ) oder einer Bildschirmzeile (INPUT) 
entnommen. Dieses Zusammenspiel soll jetzt geübt werden. 


a) Löschen Sie den Programmspeicher und schreiben Sie 
2DATA 4,5,6, 7 
3ÖREAD A, B: ?A;B, 
AÖREAD A: ?A 
Starten Sie das Programm. 
b) Ergänzen Sie 
1DATA 3 
RUN 
Wenn Sie das Ergebnis registriert haben, starten Sie erneut mit 
GOTO39 
c) Falls die Übung b) nicht mit einer Fehlermeldung endete, haben Sie einen Fehler ge- 
macht. Wiederholen Sie b) ggf. in der vorgeschriebenen Form. Danach ergänzen Sie 
SÖRESTORE 
Geben Sie erneut 
RUN 
und nach dem Durchlauf erneut 
GOTO3® 


d) Löschen Sie das alte Programm und schreiben Sie 


2PINPUT S1, 52 
4B ?’SUMME =“;S1 +52 
RUN 
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Daraufhin erscheint ein Fragezeichen, mit dem Ihr cbm-Rechner Sie auffordert, Daten 
für eine INPUT-Anweisung einzugeben. Schreiben Sie 2 Zahlen, die Sie durch ein Kom- 
ma trennen müssen (z.B. 8,4) und betätigen Sie die RETURN-Taste. 


e) Fügen Sie zwischen INPUT und S1 folgende Zeichen ein: 
"’SUMMANDEN'“'; 
Starten Sie das Programm. Jetzt wäre es vernünftig, wie bei d) eine Datenzeile mit 2 Zah- 
len aufzubauen. Versuchen Sie es statt dessen mit nur einer Zahl und der RETURN- 
Taste. 
Geben Sie noch eine Zahl ein, und es erscheint wieder die Summe beider Zahlen. 


f) Starten Sie das Programm erneut und drücken Sie nach dem Erscheinen des Fragezei- 
chens sofort die RETURN-Taste. 


g) Schreiben Sie 
10INPUT”EINHEIT‘; E$ 


und ergänzen am Ende von Zeile 49 
;E$ 

Starten Sie das Programm. Als aktuellen Wert für E$ können Sie z.B. die Zeichenfolge 
D-MARK 

wählen. Die Zahlen geben Sie am besten wie in Übung d) ein. 


6.1 Eingabe während des Programmlaufs 


Wir haben eingangs schon betont, daß problembezogene Daten über Eingabeanweisungen 

in das Programm einfließen sollten. Ein gängiges Prinzip ist, das Programm während der 
Programmausführung zu unterbrechen, wenn neue Daten benötigt werden, und diese Unter- 
brechung dem Benutzer anzuzeigen. Hier geschieht das mit einem Fragezeichen. Daraufhin 
gibt der Benutzer über den Bildschirm bzw. die Tastatur die Daten ein, und das Programm 
wird automatisch fortgesetzt. 


Diese Eingabeanweisung hat die Form 
INPUT Variablenliste bzw. 
INPUT ”Text‘“; Variablenliste 


In der Liste stehen Variablennamen, die durch Kommas zu trennen sind. 


Besonders bei Programmen mit mehreren INPUT-Anweisungen empfiehlt sich die zweite 
Form. Bei ihr erscheint später als Zeichen der Programmunterbrechung der hinter INPUT 
gesetzte Text und dann das Fragezeichen. Dadurch wird es möglich, die verschiedenen Lese- 
befehle zu kennzeichnen oder gar dem Benutzer Hinweise für die Dateneingabe zu geben. 

In der Variablenliste dürfen beliebige Variablen stehen. Beim Aufbau der Datenzeilen ist je- 
doch zu beachten, daß die Daten zum jeweiligen Variablentyp passen, also z.B. kein String 
geschrieben wird, wenn in der Liste eine gewöhnliche Variable an der Reihe ist. 


Damit das Programm nach der Unterbrechung für eine INPUT-Anweisung fortgesetzt 
wird, müssen soviel Daten eingegeben werden, wie Variablen in der Liste stehen. 
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Die eingegebenen Daten werden der Reihe nach den Variablen der Variablenliste zu- 
geordnet. 


Die Daten für eine INPUT-Anweisung dürfen in eine Zeile geschrieben werden, müssen 
es aber nicht. 


Innerhalb einer Zeile werden Daten durch Kommas getrennt. 


Wie bereits erwähnt, zeigt der Rechner durch ein Fragezeichen an, daß er Daten für eine 
INPUT-Anweisung erwartet. Was geschieht aber, wenn Sie daraufhin nur die RETURN-Ta- 
ste betätigen? 


Die Eingabe einer leeren Datenzeile für eine INPUT-Anweisung führt zum Programm- 
abbruch. 


Beispiel: 

Wir wollen ein Programm schreiben, das das Volumen eines Ziegelsteines berechnet. Wenn 
wir die Kantenlängen mit L, B und H bezeichnen, erhalten wir das Volumen als V = L*B*H. 
Um möglichst flexibel zu bleiben, wollen wir alle Kantenlängen im Programm als Variable 
behandeln und deren Werte über einen Lesebefehl festlegen. Anschließend kann das Volu- 
men berechnet und ausgegeben werden. Schließlich bieten wir dem Benutzer noch die Mög- 
lichkeit, das Ergebnis mit einem beliebigen Text TE$ zu kennzeichnen. 


Bild 6.1 zeigt Ihnen, wie diese Aktionenfolge als Ablaufplan dargestellt wird. Übertragen wir 
diesen Plan in BASIC: 


10INPUT L,B,H, TE$ 
20V = L*B*H 
30? TE$; V 


Eingabe: 
L,B,H, TE$ 


. Ausgabe: 
Bild 6.1 Quadervolumen TES; V 





Nachdem Sie dieses Programm gestartet haben, werden Sie aufgefordert, Daten einzugeben. 
Diese können Sie auf viele Arten anordnen. Zwei davon seien hier aufgeführt. 


Version 1: 

?24.0,11.5,7.1, NORMALFORMAT RETURN -Taste 
Version 2: 

?24.0,11.5,7.1 RETURN-Taste 


??NORMALFORMAT RETURN-Taste 
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Die Eingabe der 4 genannten Größen hätten wir auch mit folgenden Anweisungen erreichen 
können: 


18 INPUT ’LAENGE‘“;L 
12 INPUT ’’BREITE‘;B 
14 INPUT ”’HOEHE‘;H 
16 INPUT ”TEXT‘;TES 


In diesem Fall spielt sich bei der Dateneingabe folgender Dialog ab: 


LAENGE? 28.5 RETURN-Taste 
BREITE? 13.5 RETURN-Taste 
HOEHE? 8.5 RETURN-Taste 


TEXT? KLOSTERFORMAT RETURN-Taste 


Zur Klarstellung sei noch einmal betont, daß die Zeileninhalte bis einschließlich der Frage- 
zeichen bei der Ausführung der INPUT-Anweisungen von Ihrem Rechner stammen, wäh- 
rend Sie den Rest der Zeilen schreiben. Dabei hätten Sie die Strings auch durch Anführungs- 
zeichen begrenzen dürfen. 

Sie werden es schon selber bemerkt haben, aber trotzdem sei darauf hingewiesen, daß unser 
Programm mehr kann, als in der Aufgabenstellung gefordert ist. Die Ursache liegt primär in 
dem notwendigen Abstraktionsprozeß, der bei komplexeren Problemen oft Kopfzerbrechen 
bereitet, hier jedoch kaum bewußt wurde: wir haben den Stein als Sonderfall eines Quaders 
erkannt. Durch die Verwendung allgemein gehaltener Texte und vor allem der Textvariab- 
len haben wir dann konsequent das durch die Abstraktion verallgemeinerte Problem ‚‚Qua- 
dervolumen‘‘ programmiert. ® 


6.2 Eingabe vor dem Programmstart 


Die Dateneingabe über die INPUT-Anweisung wird unbefriedigend, wenn für einen Pro- 
grammdurchlauf relativ viele Eingabedaten erforderlich sind. Entdecken Sie nämlich einen 
Fehler in den Daten erst, nachdem die betreffende Datenzeile per RETURN-Taste an das 
Programm übergeben wurde, müssen Sie in der Regel das Programm neu starten und a/le 
Daten neu eingeben. Um so etwas zu vermeiden, ist es oft besser, zuerst alle Daten zu schrei- 
ben, zu speichern, ggf. zu korrigieren und erst dann das Programm zu starten. Damit gehö- 
ren die in Ihrem cbm-Rechner gespeicherten Daten zwar formal zum Programm (s. Ab- 
schnitt 4.1), aber es macht weniger Mühe, korrekte Eingabewerte bereitzustellen. 


Derartige Programmzeilen, die Daten für einen Leseprozeß enthalten, werden durch das 
Kennwort DATA bezeichnet. 

Der Aufbau der DATA-Anweisung ist 

DATA Werteliste 

Die Daten in der Werteliste werden durch Kommas getrennt. 


Wenn die Daten von einer anderen Stelle gelesen werden sollen als bei INPUT, bedarf es na- 
türlich eines weiteren Eingabekommandos: READ. 
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Diese Eingabeanweisung hat die Form 
READ Variablenliste 
In der Liste stehen Variablennamen, die durch Kommas zu trennen sind. 


Beispiele für READ und DATA kennen Sie schon aus den Übungen a) bis c). Sehen Sie sich 
noch einmal an, wie das Zusammenspiel zwischen diesen beiden Anweisungsarten in Übung 
b) ablief. Zunächst erhielten A den Wert 3 und B den Wert 4. Ein READ versorgte sich also 
aus verschiedenen DATA-Anweisungen. Das anschließende READ A brachte A den Wert 5. 
Eine DATA-Anweisung konnte also abschnittsweise von verschiedenen READ-Anweisungen 
gelesen werden. Beim zweiten Durchlauf reichten dann die Daten nicht, so daß eine Fehler- 
meldung erfolgte. Diese Meldung wurde in Übung c) vermieden, aber hier brachte der zwei- 
te Durchlauf auch die gleichen Zahlen wie der erste. Lassen Sie uns diese Beobachtungen 
nun in Merkregeln umsetzen. 


Die Daten aus allen DATA-Anweisungen werden der Reihe nach den Variablen aus 
den ausgeführten READ-Anweisungen zugeordnet. 

Mit Hilfe eines sog. Pointers merkt sich der Rechner, wie weit die DATA-Anweisun- 
gen schon abgearbeitet wurden. 

Mit RESTORE wird der Pointer in seine Ausgangsstellung zurückgesetzt, also an den 
Anfang der ersten DATA-Anweisung. 


Es gibt keine bindende Vorschrift für die Anordnung der DATA-Zeilen innerhalb des Pro- 
gramms. Im Hinblick auf die Eigenarten des Lesens aus den DATA-Zeilen und deren be- 
queme Änderung sollte man diese totale Freizügigkeit jedoch nicht ausnutzen. Der Autor 
rät Ihnen statt dessen, alle DATA-Anweisungen an den Anfang des Programms zu setzen 
und hierfür fortlaufende Zeilennummern zu verwenden. 


6.3 Einzelzeichen-Eingabe 


Wer in der Programmierung wenig erfahren ist, sollte diesen Abschnitt übergehen. Der hier 
dargestellte Stoff ist erst von Nutzen, wenn Sie einen besonders aufwendigen Eingabedialog 
programmieren oder unkonventionelle Peripheriegeräte bedienen müssen. 


Mit GET steht ein Eingabe-Kommando zur Verfügung, mit dem bei jeder Ausführung ein 
Zeichen in den Rechner übernommen werden kann. 


Die Eingabe eines Zeichens von der Tastatur kann programmiert werden mit 
GET Variable 


Es darf eine gewöhnliche oder eine Stringvariable benutzt werden. 


Das Programm wird durch GET nicht unterbrochen, so daß es auch nicht wie bei INPUT 
nach der Dateneingabe mit der RETURN-Taste fortgesetzt werden muß. Falls das Programm 
bestimmte Zeichen erwartet, z.B. zur Ablaufsteuerung, müssen Sie daher eine Warteschleife 
vorsehen; denn anders ist kaum zu erreichen, daß der Benutzer den Zeitpunkt der Eingabe 
trifft. Eine Warteschleife sieht im Prinzip wie folgt aus: 


S® GET AS: IFAS=," “THEN 5® 
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In analoger Weise können einzelne Zeichen von einem Peripheriegerät geholt werden. Das 
Kommando lautet dann GET #k, Variable. Es setzt ein OPEN für die Kanalnummer k vor- 
aus (s. Kap. 8 und 9). 


6.4 Aufgaben 


6-1 Durch eine INPUT-Anweisung soll der Variablen T$ der 7stellige String ABC, DEF zu- 
gewiesen werden. Wie müssen Sie die Datenzeile schreiben? 

6-2 Benutzen Sie statt der INPUT- eine READ-Anweisung. Wo bzw. wie müssen Sie jetzt 
den String ABC, DEF schreiben? 

6-3 Wir betrachten das Beispiel aus Abschnitt 6.1 in der Version mit 4 INPUT-Anweisun- 
gen und nehmen an, bei der Ausführung des Programms sei auf TEXT? sofort mit der 
RETURN-Taste geantwortet worden. 


Wie reagiert der Rechner? 
Was müssen Sie tun, um den aktuellen Fall bearbeiten zu lassen, ohne noch einmal die 


Abmessungen eingeben zu müssen? 

6-4 Eine Ausgabezeile für die Werte von zwei Variablen können Sie alternativ mit einer 
PRINT- oder mit zwei PRINT-Anweisungen schreiben. Können Sie dementsprechend 
eine Datenzeile mit 2 Zahlen alternativ mit einem oder zwei Lesebefehlen lesen? 
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7 Verzweigungen 


In den bisherigen Übungen und Beispielen haben wir nur lineare Programme geschrieben: 
Bei jedem Durchlauf wurde jede Anweisung genau einmal ausgeführt. Von dieser Programm- 
struktur wollen wir nun abgehen. 


a) Schreiben Sie 


10 INPUT”Z',Z:? 

2d IFZ<G THEN?”REN“; 
30 ?’TIER“: GOTO 1 
RUN 


Geben Sie im unregelmäßigen Wechsel positive und negative Zahlen ein und registrieren 
Sie den Zusammenhang zwischen Eingabe- und Ausgabewerten. 


b) Löschen Sie in Zeile 29 die zwischen der Zeilennummer und dem Fragezeichen (bzw. 
PRINT) stehenden Zeichen und lassen Sie das Programm mit den gleichen Zahlen wie in 
Übung a) laufen. (Falls keine Unterschiede auftreten, haben Sie nach dem Löschen wahr- 
scheinlich die RETURN-Taste vergessen. Lassen Sie sich die Zeile 2® zeigen und korri- 
gieren Sie sie wie vorgeschrieben.) 


c) Schreiben Sie 


30 ?A*B:GOTOIß 
10 INPUT”A,B“;A,B 
2D IFA=POR B=P THEN?”NULL“: GOTO 1P 


Lassen Sie auch dieses Programm laufen. Wählen Sie die einzugebenden Zahlenpaare so, 
daß gelegentlich, aber nicht immer eine Null vorkommt. 


d) Schreiben Sie 


105=9 

28 Z= RND(TI): S=S+Z:?Z 
30 IFS<=7THEN GOTO 29 
40 ?’SUMME“;S 


Geben Sie mehrfach das RUN-Kommando und prüfen Sie jeweils, daß die Differenz der 
letzten beiden Zahlen die 7 noch nicht übersteigt. 


e) Löschen Sie in Zeile 3Ö das Kommandowort GOTO, so daß die Zeile auf THEN 29 en- 
det. Überzeugen Sie sich, daß das Programm genau so arbeitet wie bisher. Die ausgege- 
benen Zahlen wiederholen sich allerdings im allgemeinen nicht, weil wir in Zeile 2Q ei- 
nen Zufallszahlengenerator (RND) benutzen. 
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f) Schreiben Sie 

18 INPUT”’ZS;Z 

28 ON Z GOTO 49, 19, 30, 40 

30 ?:?”’A:2: GOTO 19 

40 ?:2°’B:2:GOTO 19 
Starten Sie das Programm, geben Sie in beliebiger Reihenfolge ca. Id Zahlen zwischen 
Ö und 6 ein und registrieren Sie den Zusammenhang zwischen Ihrer Eingabe und der 
Ausgabe. 


7.1 Sprunganweisung 


Wir haben in früheren Beispielen gesehen, daß die Programmzeilen aufsteigend nach Zeilen- 
nummern sortiert und in dieser Reihenfolge abgearbeitet werden. Durch besondere Anwei- 

sungen, sog. Verzweigungen, kann jedoch von dieser ‚natürlichen‘‘ Reihenfolge abgewichen 
werden. 

Die einfachste Verzweigung ist die Sprunganweisung, in der wir die Nummer der Zeile vor- 

geben, mit der die Programmausführung fortgesetzt werden soll. 


Die allgemeine Form der Sprunganweisung ist 

GOTOn 

Darin bedeutet n die Nummer einer im Programm vorhandenen Zeile. 

Die Wirkung sahen Sie z.B. in Übung a). Nach jeder Ausgabe des Wortes TIER (Zeile 3P) 
wurde von Ihnen die Eingabe einer Zahl gefordert (Zeile 19). 

Die Übungen d) und e) haben gezeigt, daß ein bedingter Sprung (s. Abschnitt 7.3) auch kür- 
zer codiert werden kann. 





In einer bedingten Sprunganweisung braucht statt THEN GOTO n nur THEN n 
geschrieben zu werden. 





Schon mit der einfachen GOTO-Anweisung können wir die lineare Struktur unserer bishe- 
rigen Programme aufweichen. Beispielsweise werden reine Berechnungsprogramme oft so 
eingesetzt, daß das Programm mehrfach unmittelbar nacheinander mit verschiedenen Daten 
ausgeführt wird. Dazu mußten wir bisher nach jedem Durchlauf das Programm neu starten. 
Das können wir sparen, wenn wir ans Programmende einen unbedingten Sprung zur ersten 
ausführbaren Anweisung setzen. 

Damit erhält das Programm die Struktur einer unendlichen Schleife. Solange bei jedem 
Durchlauf garantiert eine INPUT-Anweisung erreicht wird, ist das fehlende Ende aber kein 
Nachteil. Beim INPUT hält das Programm an, und der Benutzer entscheidet über Fort- 
setzung (Daten und RETURN-Taste) oder Abbruch (nur RETURN-Taste). 
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7.2 Berechneter Sprung 


Der einfache Sprung bewirkt die Fortsetzung des Programms an stets der gleichen Stelle. 
Die bedingte Sprunganweisung (s. Abschnitt 7.3) gestattet dagegen, eine Alternative zu 
programmieren: entweder wird gesprungen oder nicht. Daneben enthält das cbm-BASIC 
noch den berechneten Sprung, mit dem aus einer Menge von Zeilennummern eine ausge- 
wählt wird, um dort die Ausführung fortzusetzen. Sie kennen diese Anweisung aus Übung f). 
Dort wurde ’’B‘' ausgegeben, wenn der ganzzahlige Teil der eingegebenen Zahl 1 oder 4 war. 
Bei 2 wurde sofort zum Lesebefehl verzweigt, und in den anderen Fällen wurde die Zeile 3® 
ausgeführt, d.h. bei P, bei 3 und von 5 an aufwärts. 


Lassen Sie uns die Regeln für diesen Anweisungstyp zusammenstellen: 


Die allgemeine Form der berechneten Sprunganweisung ist 

ON aGOTOnl,n2,..., nk 

Darin sind n] bis nk die Nummern im Programm vorhandener Zeilen und a ein nicht 
negativer arithmetischer Ausdruck. 


Wenn der ganzzahlige Teil von a 1 ist, wird zur Zeile nl verzweigt, ist er 2, wird bei Zeile n2 
fortgesetzt usw. Es wird nicht gesprungen, sondern die Ausführung in der nachfolgenden 
Zeile fortgesetzt, wenn der ganzzahlige Teil von a ® oder größer als k ist. 


7.3 Bedingte Anweisung 


In den Übungen, z.B. in Übung a), haben Sie erlebt, daß eine Anweisung (PRINT "REN“') 
gelegentlich nicht ausgeführt wurde. Sie war als bedingte Anweisung codiert und wurde nur 
erreicht, wenn Sie eine negative Zahl Z eingegeben hatten. In Übung b) wurde hingegen je- 
desmal REN geschrieben, so daß die Bedingung offenbar durch den Teil der Zeile 20 aus- 
gedrückt war, den Sie in Übung b) gelöscht haben. 

Was hier am Beispiel einer Ausgabeanweisung demonstriert wurde, ist durchweg erlaubt. 
Die Ausführung jeder Anweisung (Ausnahme: FOR, s. Kap. 11) kann vom Vorliegen be- 
stimmter Bedingungen abhängig gemacht werden. 


Die allgemeine Form der bedingten Anweisung ist 
IF Bedingung THEN Anweisung 


Wenn die Bedingung verletzt ist, wird die hinter THEN stehende Anweisung, der sog. Ja- 
Ast, ignoriert und sofort die nachfolgende Zeile abgearbeitet. Ist die Bedingung erfüllt, wird 
der Ja-Ast ausgeführt. Dieser darf mehrere durch Doppelpunkt getrennte Anweisungen ent- 
halten, die entweder alle ignoriert oder alle ausgeführt werden. Endet der Ja-Ast nicht mit 
einer Sprunganweisung, wird anschließend die nachfolgende Zeile abgearbeitet. 


Bedingungen werden oft als Vergleich geschrieben. 


Ein Vergleich besteht aus 2 arithmetischen Ausdrücken oder 2 Strings (den Operan- 
den) und einem Vergleichsoperator. 
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Wenn al und a2 Operanden des gleichen Typs bezeichnen, sind folgende Vergleiche 


möglich: 

BASIC Bedeutung 
al<a2 al kleiner als a2 
al=a2 al gleich a2 
al>a2 al größer als a2 


al>=a2 al größer oder gleich a2 
al<>a2 al ungleich a2 
al<=a2 al kleiner oder gleich a2 


Strings werden von vorne her zeichenweise verglichen, bis 2 unterschiedliche Zeichen auf- 
treten. Auf der Basis des zur internen Zeichendarstellung verwendeten Codes (ASCII: 
American Standard Code for Information Interchange) ergibt sich die Größenrelation zwi- 
schen den Zeichen. Diese stimmt überein mit der üblichen lexikografischen Anordnung, 
wobei die Ziffern noch vor den Buchstaben rangieren. Falls ein String mit dem Anfang ei- 
nes anderen völlig übereinstimmt, gilt der kürzere als kleiner. 

Für den Bereich numerischer Vergleiche sind mit der obigen Regel auch Bedingungen wie 
in Übung a) oder d) erfaßt; denn ein arithmetischer Ausdruck (vgl. Abschnitt 3.4) kann bis 
auf eine Konstante oder eine Variable abmagern. Es geht aber auch komplizierter, wie 
Übung c) zeigt. 


Wenn b1 und b2 zulässige Bedingungen (z.B. Vergleiche) bezeichnen, dürfen folgende 
Bedingungen formuliert werden: 


BASIC Bedeutung 
NOT b1 Negation von bl 
bI ANDb2 bl und b2 
bI OR b2 b1 oder b2 


Da ‚‚kleiner oder gleich‘ das Gegenteil (die Negation) von „größer“ ist, sind z.B. folgende 
Bedingungen gleichwertig: 


al<=a2 entspricht NOT al >a2 


Für den Gebrauch von AND und OR sei daran erinnert, daß eine mit ‚‚und‘‘ gebildete Ge- 
samtbedingung b1 und b2 erfüllt ist, wenn beide Einzelbedingungen erfüllt sind. Bei ‚‚oder“ 
hingegen ist die Gesamtbedingung b1 oder b2 erfüllt, wenn mindestens eine Einzelbedin- 
gung erfüllt ist. So wurde in Übung c) das Wort NULL geschrieben, wenn Sie eine oder zwei 
Nullen eingegeben hatten. 

Eine Erläuterung der Aussagenlogik kann hier nicht erfolgen, weil sie zu weit vom Thema 
dieses Buches wegführt. Wer programmieren will, sollte die Regeln der formalen Logik je- 
doch kennen und über die obigen Andeutungen hinaus z.B. in der Lage sein, zusammenge- 
setzte Aussagen (Bedingungen) zu negieren. Wenn Sie auf diesem Gebiet Wissenslücken 
spüren, sollten Sie sie, vielleicht mit Hilfe der einschlägigen Literatur, beizeiten beseitigen. 
Nachdem wir in diesem Kapitel weitere Operatoren kennengelernt haben, müssen wir noch 
einmal die Frage ihrer Priorität aufgreifen. Wie bei den arithmetischen Operatoren kann 
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auch hier durch Paare runder Klammern vorgeschrieben werden, in welcher Reihenfolge 
die in einem Ausdruck auftretenden Operatoren abgearbeitet werden sollen. Soweit davon 
kein Gebrauch gemacht wird, gilt folgende 


Rangordnung der Operatoren: 


Rang Operator 
1 r 
| 
+_ 
Vergleichsoperatoren 
NOT 
AND 
OR 


SOAWKı WM 


Beispiel: 


Ein zentrales Problem der Programmierung ist die Berechnung von Summen mit variabler 
Anzahl von Summanden. Den prinzipiellen Lösungsweg hierfür wollen wir am nachstehen- 
den Problem aufzeigen. 

Der Rechner kann Zufallszahlen erzeugen, die zwischen ® und 1 liegen. Wir wollen diese 
Zahlen solange aufaddieren, bis die Summe den Wert 7 übersteigt, und uns zur Kontrolle 
die Zahlen und ihre Summe ausgeben lassen. Da die Anzahl der Summanden nicht bekannt 
ist, können wir keine Additionsanweisung mit entsprechender Anzahl von ‚‚+“-Zeichen 
formulieren. Wir müssen stattdessen mit einer Zeile der Form 


5S=5+Z 


nur eine Zufallszahl Z verarbeiten und diese Anweisung mit jeweils neuem Z so oft aus- 
führen wie nötig. Bei dieser Technik hat S die Bedeutung ‚‚Teilsumme der bislang addierten 


a) b) 





Z = Zufallszahl 
S=-S+tZ 


Z=RND(TI) 
S=5StZ 


Ausgabe: 
”Summe=‘;S 





Bild 7.1 Summe von Zufallszahlen 


14 Abe... WB 


Zahlen‘‘. Nach jedem Durchlauf ändert sich der Wert von S, so daß eine Folge von Teilsum- 
men entsteht. Wir brechen die Berechnung ab, wenn der richtige Summenwert erreicht ist 
(s. Bild 7.1, Version a). 
Die Summe ist natürlich nur korrekt, wenn vor der Verarbeitung der ersten Zufallszahl S 
den Wert ® hat. Außerdem sollten die Zahlen und ihre Summe ausgegeben werden, so daß 
sich der Plan aus Bild 7.1, Version b, ergibt. Eine Übertragung dieses Ablaufplans in ein 
BASIC-Programm erübrigt sich, da Sie das Programm in Übung d) schon geschrieben haben. 
© 


7.4 Aufgaben 


7-1 Das Minimum a, der Zahlen a,,a,,... , a, ist charakterisiert durch 
Am Sa,i=1,2,..n 
Schreiben Sie ein Programm, das aus 3 einzulesenden Zahlen das Minimum a, be- 
stimmt und ausgibt. Verwenden Sie keine indizierten Variablen. 


1-2 Schreiben Sie ein Programm, das bei beliebiger Anzahl n das Minimum von a, , a,, ..., 
An ermittelt und ausgibt. Lesen Sie als erstes die Anzahl n. Verwenden Sie keine indi- 
zierten Variablen. 


7-3 In einem Lager befinden sich n verschiedene Artikel. Vom i-ten Artikel sind a; Stück 
vorhanden, und der Preis für ein solches Stück ist P;. Schreiben Sie ein Programm, das 
für den gesamten Lagerbestand den durchschnittlichen Stückpreis DP ermittelt. Die 
Formel dafür lautet 


nn 
3 a;P; 
i=1 

= 


dj 
i=1 


DP = 


Bauen Sie das Programm so auf, daß die Preise (langfristig konstant) über READ/DATA- 
Anweisungen und die Stückzahlen (täglich veränderlich) über INPUT-Anweisungen ge- 
lesen werden. Verwenden Sie keine indizierten Variablen. 
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8 Benutzung des Recorders 


Das Kassettenlaufwerk bietet die Möglichkeit, Programme auf gewöhnlichen Kassetten zu 
archivieren. Legen Sie eine leere Kassette ein und lassen Sie uns das Speichern und Laden 
von Programmen üben. 


a) Betätigen Sie am Recorder die Rücklauftaste (REW). Während die Kassette zurückgespult 
wird, erstellen Sie ein einfaches Programm: 
10 INPUT ’BASIS, EXPONENT“;B,E 
20 ?BtE: GOTO 19 
b) Wenn die Kassette zurückgespult ist, lösen Sie die REW-Taste und schreiben 
SAVE ’POTENZ“ 
Daraufhin werden Sie aufgefordert, am Recorder die Tasten REC und PLAY gleichzei- 
tig zu drücken. Tun Sie es, und beachten Sie den Bildschirm. 
c) Nachdem das Speichern beendet ist (Anzeige READY) lösen Sie die Tasten REC und 
PLAY (mit der STOP-Taste des Recorders) und erstellen ein zweites Programm: 
18 INPUT ”FAKTOR 1, FAKTOR 2“; A,B 
20 ?A*B: GOTO 19 
Speichern Sie auch dieses Programm: 
SAVE ’PRODUKT“ 


Nach Beendigung dieses Vorganges löschen wir den Programmspeicher und kontrollie- 
ren den Löscherfolg: 


NEW 
LIST 


d) Nun spulen Sie die Kassette zurück (Taste REW am Recorder), lösen anschließend die 
REW-Taste und schreiben dann 


LOAD "PRODUKT “ 


Wenn nicht nach spätestens 5 Minuten der Ladevorgang abgeschlossen ist, brechen Sie 
ihn ab (Tasten STOP am Rechner und STOP am Recorder). In diesem Fall wiederholen 
Sie den Punkt d), und falls das Laden wieder mißlingt, beginnen Sie noch einmal bei 
Punkt a) und halten sich genau an den vorgeschriebenen Übungsplan. 


Ist das Programm geladen, überprüfen Sie den Erfolg mit 
LIST 
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e) Jetzt soll das andere Programm geladen werden. Überlegen Sie, was dafür zu tun ist. 


Sind Sie auch auf die nachstehende Aktionenfolge gekommen? 
Kassette zurückspulen, REW-Taste lösen, LOAD ’POTENZ“ schreiben. 
Wenn das Programm POTENZ“ geladen ist, lösen Sie die PLAY-Taste. 


Schreiben Sie 
15?”’BHOCHE ="‘; 
Dieses modifizierte Programm soll jetzt zusätzlich zu den beiden anderen gespeichert 
werden. Deshalb muß zunächst die Kassette bis ans Ende des Programms PRODUKT“ 
vorgesetzt werden. Dazu schreiben Sie 
VERIFY 
Nach Aufforderung drücken Sie die PLAY-Taste und warten, bis die Meldungen 
FOUND PRODUKT 
VERIFYING 


VERIFY ERROR 
READY 


erscheinen. Lösen Sie die PLAY-Taste. Versuchen Sie, in Anlehnung an die Übung c) 
das im Speicher befindliche Programm unter dem Namen "POT 2‘ auf die Kassette zu 
bringen. 


un) 
a ıe 


8.1 Speichern von Programmen 


Der cbm-Rechner betrachtet alle in seinem Programmspeicher stehenden Zeilen als ein Pro- 
gramm. Weil daher zu jeder Zeit nur ein Programm bekannt ist, ist ein Programmname zur 
Unterscheidung von Programmen nicht nötig. Auch wenn wir Programme auf Kassetten 
speichern, sind Namen nicht erforderlich, selbst dann nicht, wenn mehrere Programme auf 
einer Kassette stehen. Im Hinblick auf den effektiveren Gebrauch werden wir gespeicherte 
Programme jedoch grundsätzlich mit Namen versehen. Sie sollten die Namen aber mög- 
lichst kurz wählen, damit bei einer Bezugnahme der Schreibaufwand und vor allem das 
Fehlerrisiko klein bleiben. 

Um Schwierigkeiten beim späteren Laden der Programme zu vermeiden, sollten Sie keine 
Namen verwenden, die komplett mit dem Anfang eines anderen Namens übereinstimmen. 
Z.B. sind die Namen RUND und RUNDUNG ungünstig, während UND mit jedem der an- 
deren beiden Namen verträglich ist. 


Ein Programm wird auf Kassette gespeichert mit SAVE ”’Name“. 
Der Name wird auf 16 Zeichen beschränkt. 


Nach dem SAVE-Kommando werden Sie aufgefordert, die Tasten REC und PLAY am 
Recorder zu drücken. Das muß gleichzeitig erfolgen, und beide Tasten müssen einrasten. 
Voraussetzung für den Erfolg ist, daß bei der Eingabe des SAVE-Kommandos keine der 
Recorder-Tasten REW, FFWD oder PLAY eingelegt ist, weil der Rechner sonst einen fal- 
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schen Betriebszustand des Recorders unterstellt. Wir wollen betonen, daß das Programm 
auch nach dem Speichern, dessen Abschluß durch READY angezeigt wird, im Speicher 
des Rechners vorhanden ist. 


Wenn Sie das SAVE-Kommando gegeben und die geforderten Tasten eingelegt haben, wird 
die Kassette von der momentanen Position des Schreibkopfes an beschrieben. Das stört 
nicht, solange Sie stets pro Kassette nur ein Programm aufnehmen und die Kassette vor 
dem SAVE-Kommando zurückspulen. Es ist jedoch denkbar, daß Ihnen bei fleißiger Pro- 
grammierung die große Anzahl von Kassetten bald lästig wird. 


Wollen Sie mehrere Programme pro Kassette speichern, müssen Sie in der Lage sein, vor ei- 
nem anstehenden SAVE-Kommando die Kassette bis hinter das letzte darauf befindliche 
Programm vorzusetzen. Dafür existiert aber kein Spezialbefehl. Man kann jedoch den ge- 
wünschten Effekt mit dem VERIFY-Kommando erreichen. 


Mit VERIFY veranlassen Sie, daß das nächste auf der Kassette gefundene und das im 
Rechner gespeicherte Programm auf völlige Übereinstimmung geprüft werden. 


Das Kommando heißt VERIFY. 


Sie werden nach dem Kommando aufgefordert, die PLAY-Taste des Recorders zu drücken. 
Gewöhnen Sie sich an, diese nach erfolgter Prüfung wieder zu lösen; denn sonst wird Ihnen 
ein geplantes SAVE mißlingen. 


Ob die Prüfung Übereinstimmung ergab oder nicht, in jedem Fall ist die Kassette bis hinter 
das Programmende vorgesetzt worden. Wenn sich auf der Kassette ein weiteres Programm 
anschließt, wiederholen Sie das VERIFY-Kommando und gelangen damit an das Ende die- 
ses Programms. Auf diese Weise können Sie die Kassette bis hinter das letzte darauf befind- 
liche Programm vorsetzen und das neue Programm dahinter abspeichern. Sie müssen aller- 
dings bei jedem VERIFY genau wissen, ob noch ein Programm folgt; denn sonst läuft die 
Kassette bis zum Ende durch, und Sie können das aktuelle Programm nicht mehr speichern. 


8.2 Laden von Programmen 


Ein auf Kassette gespeichertes Programm können Sie in den Programmspeicher Ihres cbm- 
Rechners laden. 


Das Ladekommando heißt 
LOAD ”’Name‘“ bzw. nur LOAD 


Sie werden aufgefordert, am Recorder die PLAY-Taste zu drücken. Haben Sie nur LOAD 
gesagt, wird das erste gefundene Programm genommen. Falls Sie einen Namen angegeben 
haben, wird die Kassette vorwärts bis zum fraglichen Programm gelesen und dieses geladen. 
Der Suchprozeß wird als erfolgreich angesehen, sobald der Anfang des gespeicherten Na- 
mens und der im LOAD genannte Name identisch sind. Wenn der gespeicherte Name länger 
ist, werden die hinteren Zeichen ignoriert. 
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8.3 Bearbeitung von Datenbeständen 


Kassetten eignen sich grundsätzlich auch zur Aufnahme von Datenbeständen. Das Ausgabe- 
kommando PRINT kann so modifiziert werden, daß die Ausgabezeile nicht zum Bildschirm, 
sondern zum Recorder geschickt und dort gespeichert wird. Entsprechend läßt sich auch 
mit einem abgewandelten INPUT eine Datenzeile vom Recorder holen. 

Bei praktischen Anwendungen geht es jedoch kaum um die Bearbeitung weniger Datenzei- 
len, sondern es sind größere Datenmengen zu speichern bzw. zu lesen. Dabei macht sich die 
geringe Arbeitsgeschwindigkeit des Recorders störend bemerkbar. Wer die Möglichkeit hat, 
sollte deshalb seine Datenbestände auf Disketten führen und diesen Abschnitt übergehen. 
Wollen Sie von einem Programm zu einem Datenbestand auf einer Kassette zugreifen (lesen 
oder schreiben), müssen Sie zuerst einen Übertragungskanal zwischen Rechner und Recor- 
der einrichten. 


Ein Übertragungskanal zum Recorder wird festgelegt mit 

OPEN k, 1, s,’Name““ 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 

Für die Sekundäradresse s sind zulässig 

Q Eingabedatei 

1 Ausgabedatei 

2 Ausgabedatei, nach Abschluß der Datei wird eine Bandendemarke (EOT) gesetzt. 


Der Name wird auf 16 Zeichen beschränkt. 


Beispiel: 
25 OPEN 5, 1, 2, "TESTDATEN“ ) 


Die OPEN-Anweisung muß ausgeführt werden, bevor in einer PRINT- bzw. INPUT-Anwei- 
sung auf den Kanal Bezug genommen wird. Je nach Übertragungsrichtung werden Sie auf- 
gefordert, die Tasten REC und PLAY (Ausgabekanal) oder nur PLAY (Eingabekanal) zu 
drücken. Im Falle der Ausgabe wird danach sofort, ähnlich wie beim SAVE, eine Dateian- 
fangs-Information auf die Kassette geschrieben, so daß Sie diese unbedingt vorher richtig 
positionieren müssen. Beim Lesen wird analog zum LOAD verfahren und die Kassette vor- 
wärts abgesucht, bis die Datei mit dem im OPEN genannten Namen gefunden wird. 

Im Gegensatz zur Ausgabe auf den Bildschirm ist die Fragezeichen-Konvention hier nicht 
anwendbar. 


Die Ausgabeanweisung für den Recorder lautet 
PRINT #k, Liste 
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Beispiel: 
50 PRINT#5, A, B$ © 
Die im PRINT angezogene Kanalnummer k muß natürlich auf einen Ausgabekanal verwei- 


sen (im OPEN s = 1 oder s = 2). Für die Liste gelten die gleichen Regeln wie in der gewöhn- 
lichen PRINT-Anweisung. 


Am Ende eines Programmes mit Ausgabe auf den Recorder sollten Sie den Ausgabekanal 
ordnungsgemäß schließen. 


Ein Kanal wird geschlossen mit 
CLOSE k 


Mit einem solchen CLOSE kann auch ein Eingabekanal geschlossen werden, wenn er nicht 
mehr benötigt wird. 





Sehen wir uns nun an, wie von einer Kassette gelesen wird. 


Die Eingabeanweisung für den Recorder lautet 
| INPUT #k, Variablenliste. 


Dabei ist mit k:die Nummer eines Eingabekanals (im Open s = ß) gemeint. Die Variablen- 
liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen INPUT-Anweisung 
und muß vor allem genau wie dort auf die Struktur der Datensätze abgestimmt sein. 

Wenn Sie vom Bildschirm eine Zeile mit mehreren Daten lesen wollen, müssen Sie die Da- 
ten durch Kommas trennen und eine INPUT-Anweisung mit entsprechend vielen Variablen 
ausführen (s. Kapitel 6). Auch mehrere Daten in einem Recorder-Datensatz müssen durch 
Kommas getrennt sein, wenn sie beim Lesen als getrennte Informationen erkannt werden 
sollen. Also müssen diese Kommas beim voraufgegangenen Schreiben der Datensätze mit 
ausgegeben werden, z.B. als String ” , ‘““. 


Außerdem müssen Sie in die Datei Satztrennzeichen einsetzen, die ein späteres satzweises 
Lesen ermöglichen. 


Die Ausgabe von CHR$ (13) liefert ein Satztrennzeichen, das später einen Lese- 
befehl beendet. 


8.4 Aufgaben 


8-1 Im Recorder möge sich eine Kassette mit einem Programm befinden. Was müssen Sie 
tun, um den Namen des Programms zu erfahren? 


8-2 Auf einer Kassette sollen schon die Programme AKT, ART und AST stehen. Sie wol- 
len ein viertes Programm dahinter speichern. Welche Namen sind dafür ungeeignet? 
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9 Benutzung der floppy-disk 


In diesem Abschnitt wollen wir den Umgang mit der floppy-disk kennenlernen. Da nicht 
alle lieferbaren Geräte das gleiche Betriebssystem besitzen, galt es für den Autor, sich ent- 
weder auf den allen gemeinsamen Teil von Kommandos zu beschränken, oder bei Unter- 
schieden jeweils alle Varianten aufzuführen, oder sich für eine Version des Betriebssystems 
zu entscheiden. Hier wurde der dritte Weg beschritten und die DOS -Version 2 unterstellt. 
Falls Ihre Anlage die nachstehend erläuterten Kommandos nicht versteht, sollte es Ihnen 
jedoch mit Hilfe des Benutzerhandbuches fast immer gelingen, die in diesem Abschnitt 
aufgeführten Kommandos in die für Ihre DOS -Version erforderliche Form zu übertragen. 
Bei den Übungen können Fehlerbedingungen eintreten, die die floppy-disk oder den 
Rechner blockieren. Halten Sie sich deshalb möglichst exakt an die vorgeschriebenen 
Anweisungen und beobachten Sie die zwischen den Laufwerken liegende Fehleranzeige 
der floppy-disk. Wenn diese rot aufleuchtet, betätigen Sie die STOP-Taste des Rechners 
und schreiben 


?DS$ RETURN -Taste 


Falls das nicht hilft, müssen Sie die floppy-disk und notfalls auch den Rechner aus- und 
wieder einschalten und die Übungen von Anfang an wiederholen. 


Für die Experimente benötigen Sie eine Diskette, auf der keine noch benötigten Informa- 
tionen stehen sollten. Falls Sie eine neue Diskette verwenden — und nur in diesem Fall!! —, 
muß diese zuerst sektoriert werden. Schalten Sie Rechner und floppy-disk ein, legen Sie 
die Diskette in das von vorn gesehen rechte Laufwerk (ovale Öffnung voran, Schrift nach 
oben), schließen Sie die Klappe und schreiben Sie 


HEADER’”TEST“,188,DP 
Der Rechner fragt Sie, 
ARE YOU SURE? 


worauf Sie mit Y antworten. 


Wurde Ihre Diskette schon früher sektoriert, legen Sie sie ins rechte Laufwerk. In beiden 
Fällen können Sie jetzt mit den Experimenten beginnen. 


a) Schreiben Sie 


1ß?°’FLOPPY-TEST“ 
DSAVE”’@P1“ 
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b) Nachdem das Laufwerk wieder steht, schreiben Sie 
DIRECTORY DG 


Falls Sie eine alte Diskette benutzen, könnten jetzt auf dem Bildschirm viele Zeilen 
erscheinen. Tippen Sie dann auf die Leertaste, um die Anzeige anzuhalten. Nachdem 
Sie alles gelesen haben, setzen Sie die Anzeige durch erneutes Tippen der Leertaste 
fort usw. Haben Sie P1 entdeckt? 


c) Geben Sie das Kommando 
RUN 
d) Setzen Sie fort mit 
SCRATCH "P1“, DP 
und antworten Sie auf ARE YOU SURE mit 
Y bzw. YES 


Lassen Sie sich das Inhaltsverzeichnis zeigen. 
Wie das geht? Richtig, wie in Übung b). 
e) Schreiben Sie jetzt 


DSAVE”EINS“ 
20?’’MACHT ARBEIT“ 
DSAVE”ZWEI“ 

19 

30?”’SPASS?“ 
DSAVE”DREI“ 


f) Sehen Sie sich das Inhaltsverzeichnis an und schreiben Sie 


NEW 

RUN 
DLOAD’”’ZWEI“ 
RUN 
DLOAD’"DREI“ 
RUN 
DSAVE’EINS“ 
?DS$ 
DSAVE”’@ZWEI“ 


Prägen Sie sich ein, nach welchem DLOAD die jeweiligen Texte erscheinen. 
g) Fahren Sie fort mit 


NEW 
RUN 
DLOAD’EINS“ 
RUN 
DLOAD’ZWEI“ 
RUN 
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9.1 Allgemeine Hinweise 


Auf den Disketten können, wie schon auf den Kassetten, Programme und Daten gespeichert 
werden. Die beiden Speichermedien unterscheiden sich aber in ihrer Organisationsform. Auf 
Disketten wird ein Inhaltsverzeichnis mit den Namen der gespeicherten Dateien (Program- 
me oder Datenbestände) geführt, wo auch die jeweilige Lage der Datei vermerkt ist. Deshalb 
muß jede Diskettendatei einen Namen tragen. 

Im Gegensatz zu den Kassetten bedürfen neue Kassetten einer Sektorierung (Vorbereitung 
des Inhaltsverzeichnisses, Aufbringung des Namens und der Identifikation), bevor sie be- 
nutzt werden können. 


Das Kommando für die Sektorierung einer Diskette lautet 
HEADER’’Name‘, Im,Dn 


Als Disketten-Name sind max. 16 Zeichen zugelassen außer *?=,:; 
Die Disketten-Identifikation m besteht aus 2 Buchstaben oder Ziffern. 
Als Laufwerksnummer n sind ® (rechts) oder 1 (links) zugelassen. 


Beachten Sie in Ihrem eigenen Interesse, daß die floppy-disk nicht prüft, ob die Diskette 
unbespielt ist. Wegen der Tragweite des HEADER-Kommandos werden Sie gefragt: 


ARE YOU SURE? 


Wenn Sie mit Y antworten, wird die Diskette aufbereitet. Eventuell vorhanden gewesene 
Dateien sind danach zerstört. 


9.2 Programmarchivierung 


Programme oder Datenbestände auf einer Diskette werden über ihren Namen angesprochen. 
Da sich zu jedem Namen jeweils nur eine Datei auf einer Diskette befinden kann, muß vor 
einem Speicher-Kommando oft geprüft werden, welche Namen schon vergeben sind. 


Das Inhaltsverzeichnis einer Diskette wird angezeigt mit DIRECTORY Dn bzw. 
DIR Dn (R meint R bei gedrückter SHIFT-Taste) 


Die laufende Anzeige eines Inhaltsverzeichnisses kann durch jeweils Imaliges Be- 
tätigen der Leertaste gestoppt und fortgesetzt werden. 


Insbesondere für die Leser, die schon auf Rechnern der Serien com 2#®1 oder cbm 3691 
gearbeitet haben, ist der Hinweis gedacht, daß die Anzeige eines Inhaltsverzeichnisses das 
momentan im Rechner gespeicherte Programm nicht beeinflußt oder gar zerstört. Man 
kann sich also getrost das Verzeichnis ansehen und dann das Programm auf die Diskette 
bringen. 

Aufbau und Wirkung des Kommandos zum Speichern eines Programms hängen davon ab, 
ob der vorgesehene Name auf der angesprochenen Diskette schon existiert. 
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DSAVE’@Name‘“,Dn 

speichert das aktuelle Programm unter dem angegebenen Namen auf der Diskette 
in Laufwerk n. Falls dort schon eine Datei gleichen Namens existiert, geht diese 
verloren. 

DSAVE’Name‘,Dn 

speichert das aktuelle Programm nur, wenn der Name noch nicht im Inhaltsver- 
zeichnis der Diskette in Laufwerk n steht. 

Die Angabe 

‚Dn 

darf fehlen, wenn Laufwerk ® gemeint ist. 


Soweit in den Merkregeln dieses Abschnitts Kürzel verwendet und nicht erläutert werden, 
wie z.B. ”’Name‘“ und ”'n‘“ in der vorstehenden Regel, finden Sie die einzuhaltenden Be- 
dingungen in diesem Abschnitt weiter vorne. 

Sehen wir uns nun an, wie ein Programm von der floppy-disk in den Rechner gelangt. 
DLOAD’’Name‘“, Dn 


lädt das angesprochene Programm ’’Name‘“‘ von der Diskette aus Laufwerk n in den 
Rechner; fehlt die Angabe des Laufwerks, wird Laufwerk ® benutzt. 





Wollen Sie ein Programm laden und ausführen lassen, können Sie mitunter folgenden Weg 
nutzen: 


| Mit der RUN-Taste wird das erste auf der Diskette in Laufwerk ® befindliche Pro- 
gramm geladen und gestartet. 


Im Rahmen der oben (s. 9.1) gesetzten Grenzen haben Sie natürlich völlige Freiheit bei 
der Vergabe von Programmnamen. Sie sollten in Ihrem Interesse jedoch möglichst Namen 
wählen, die Rückschlüsse auf Leistung und Alter des Programmes zulassen. 


Die Entwicklung eines Programmes vollzieht sich normalerweise in mehreren Schritten. 
Vergleichbar einer Ahnenkette entstehen im Laufe der Zeit verschiedene Programme, von 
denen die neueren i.a. besser sind. Sie haben von vornherein einen größeren Leistungsum- 
fang, oder sie enthalten weniger Fehler. Es ist üblich und dringend anzuraten, niemals nur 
die neueste Version zu speichern, sondern mindestens auch den unmittelbaren Vorgänger. 
Bei besonders bedeutsamen Programmen hebt man auch weitere Glieder der Ahnenkette 
auf. 

Hier empfiehlt es sich, die Namensvergabe zu systematisieren, damit man allein anhand 
der Namen jüngere und ältere Programme unterscheiden kann. Das können Sie durch 
einen Generationenzähler erreichen, den Sie neben einem aufgabenbezogenen Teil im 
Namen mitführen, wie z.B. in der Kette TESTPRG 1, TESTPRG 2, TESTPRG 3 usw. 
Stattdessen können Sie auch die Namen beibehalten und den Inhalt der Dateien aktuali- 
sieren. Falls Sie jeweils einen Vorgänger aufheben, sind dann statt des einfachen Speicherns 
sinngemäß folgende Anordnungen zu geben: 


Lösche TESTPRGALT. 
Benenne TESTPRG um in TESTPRGALT. 
Speichere aktuelles Programm als TESTPRG. 
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Das Löschen und Umbenennen von Dateien wie auch das außerdem mögliche Kopieren 
erreichen Sie mit folgenden Kommandos. 


Eine Datei wird gelöscht mit 

SCRATCH ’”’Name‘“, Dn 

Alle Dateien mit gleichem Namensanfang - hier als ‚Auf‘‘ bezeichnet — werden 
gelöscht mit 

SCRATCH ’”’Auf*‘“, Dn 


Hier wie auch bei den anderen floppy-Kommandos dürfen die Laufwerksangabe ‚Dn‘ 
und das angrenzende Komma fehlen. In diesem Fall wird Laufwerk ® benutzt. Vor dem 
Löschen fragt der Rechner Sie, ob Sie das Kommando ernst gemeint haben: 


ARE YOU SURE? 
Falls Sie nun mit Y bzw. YES antworten, wird gelöscht. 


Beispiele: 

SCRATCH ’’PP*“ 

SCRATCH "ALT“, DI 
Hierdurch werden alle mit PP beginnenden Dateien von der Diskette in Laufwerk ® und 
die Datei ALT von jener in Laufwerk 1 gelöscht. © 


Eine Datei wird umbenannt mit 

RENAME ‘'Namealt‘‘, Dn TO ‘“Nameneu“ 
Beispiel: 

RENAME "’TESTPRG‘“ TO ”TESTPRGALT“ 
Nach diesem Kommando stünde der Name TESTPRG nicht mehr im Inhaltsverzeichnis 
der Diskette aus Laufwerk ®. o 


Eine Datei wird kopiert mit 
COPY’’Namealt‘‘,Dn TO ’’Nameneu‘‘, Dm 
Wenn hier die 2. Laufwerksangabe fehlt, wird die 1. übernommen. 





Beispiel: 
COPY”PROG‘“, DO TO "PROGRETT“,D1 o 


Dieses Kommando gestattet insbesondere, einzelne Programme von einer Diskette auf eine 
andere zu übertragen. Davon sollte man aus Gründen der Datensicherung von Zeit zu Zeit 
Gebrauch machen. Verschiedene Gründe können dazu führen, daß eine Diskette nicht mehr 
fehlerfrei gelesen werden kann. Vermeiden Sie mechanische Beschädigungen. Legen Sie 

Ihre Disketten aber auch nicht auf das Gehäuse des Druckers oder der floppy-disk, weil 
dort starke elektromagnetische Felder auftreten und den Disketteninhalt verändern können. 
Damit sich im Störungsfall Ihr Schaden in Grenzen hält, sollten Sie wesentliche Dateien auf 
andere Disketten kopieren und diese separat lagern. 
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9.3 Sequentielle Dateien 


Hier erörtern wir den Umgang mit Datenbeständen, deren Datensätze nur der Reihe nach 
verarbeitet werden. Zur Erstellung einer solchen Dabei benutzt man PRINT-Anweisungen, 
die sich von der gewöhnlichen durch den Verweis auf einen Ausgabekanal unterscheiden. 


Ein Ausgabekanal für die floppy-disk wird eröffnet mit 
DOPEN #k, ’’Name‘“,W,Dn 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 
Der Name darf bis zu 16 Zeichen enthalten außer *?=;:; 
Vor den eigentlichen Namen darf ein @ gesetzt werden. 


Beispiel: 
18 DOPEN #4, "@TESTDATEN‘“,W,D1 © 


Wenn im DOPEN kein @ gesetzt ist, darf auf der angesprochenen Diskette noch keine 
Datei mit dem benutzten Namen stehen. Wird hingegen das @ eingefügt, wird eine even- 
tuell vorhandene Datei gleichen Namens vom laufenden Programm überschrieben. Wenn 
das gewünscht ist, können Sie also auf ein vorhergehendes Löschen (s. Abschnitt 9.2) der 
alten Datei verzichten. 

Für die Ausgabe von Datensätzen auf eine Diskette wird eine Variante der PRINT-Anwei- 
sung benutzt, wobei die Fragezeichen-Konvention nicht gestattet ist. 


Die Ausgabeanweisung für die floppy-disk lautet 
PRINT #k, Liste 
worin k die Nummer eines zuvor eröffneten floppy-Ausgabekanals ist. 





Die Liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen PRINT-An- 
weisung. Auch die Wirkung der Listentrennzeichen Komma und Semikolon ist unverändert. 
Sollen Teile eines Datensatzes später als getrennte Daten gelesen werden, müssen im Daten- 
satz an den entsprechenden Stellen Kommas gespeichert sein. Sie sollten daher geeignete 
Strings (”’ , ‘“) in die PRINT-Liste einfügen. Außerdem müssen Sie dafür sorgen, daß in die 
Datei Satztrennzeichen gesetzt werden, die ein späteres, satzweises Lesen ermöglichen. 


Die Ausgabe von CHR$(13) auf eine Disketten-Datei liefert ein Satztrennzeichen, 
das später einen Lesebefehl beendet. 


Beispiel: 
33 PRINT #4,X;” , “;Y;CHR$(13);Z;CHR$(13) ® 


Um die mit dieser Anweisung ausgegebenen Zahlen zu gegebener Zeit wieder lesen zu kön- 
nen, muß zuerst ein Lesebefehl mit 2 Variablen ausgeführt werden, der die alten Werte von 
X und Y holt, und danach einer mit einer Variablen, der den alten Wert von Z liest. 


Die Ausgabe von Daten auf eine Diskette ist nur sinnvoll, wenn man diese Daten auch wie- 
der lesen kann. Dafür ist aber unverzichtbare Voraussetzung, daß das Programm, das die 
Ausgabedatei erstellt, diese auch ordnungsgemäß abschließt. Erst zu diesem Zeitpunkt er- 
folgen die Eintragungen in das Inhaltsverzeichnis der Diskette, die für das spätere, erfolg- 
reiche Lesen der Daten notwendig sind. 
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Eine Disketten-Ausgabedatei muß abgeschlossen werden mit 
DCLOSE #k 


DCLOSE 
schließt alle Diskettendateien ab. 


Beispiel: 
95 DCLOSE #4 ® 
Gelegentlich ist von Interesse, in einer sequentiellen Datei hinter dem letzten Satz weitere 


zu ergänzen. In diesem Fall darf kein DOPEN gegeben werden, weil dann der erste danach 
geschriebene Satz den Anfang der Datei bilden würde. 


Soll eine bestehende sequentielle Datei fortgeschrieben werden, wird anstelle des 
DOPEN folgendes Kommando gegeben: 
APPEND #k, Name‘, Dn 


Beispiel: 
1d8 APPEND #4, "TESTDATEN‘“,D1 ® 


Auch nach APPEND und entsprechenden PRINT #-Kommandos muß die Datei mit einem 
DCLOSE-Befehl abgeschlossen werden. Anschließend kann sie vom gleichen oder einem 
anderen Programm gelesen werden. Voraussetzung ist, daß im lesenden Programm zunächst 
ein Eingabekanal eröffnet wird. 


Ein Eingabekanal für die floppy-disk wird eröffnet mit 
DOPEN #k, ’’Name‘“,Dn 


Beispiel: 
1ßB DOPEN # 5, "TESTDATEN“ © 
Das Lesen von Disketten-Dateien erfolgt mit einer modifizierten INPUT-Anweisung. 


Die Eingabeanweisung für Daten von der floppy-disk lautet 
INPUT #k,Liste 
Darin ist k die Nummer eines zuvor eröffneten Eingabekanals. 





Beispiel: 
11B INPUT # 5,A,B ® 


Dateien werden über ihren Namen identifiziert. Vorausgesetzt, die Diskette wurde in- 
zwischen aus Laufwerk 1 in Laufwerk ® umgelegt, würde mit diesem Lesebefehl der erste 
Satz der in den obigen Beispielen angelegten Datei gelesen, d.h. der seinerzeitige Wert 
von X stünde jetzt bei A und der von Y bei B. 

Auch ein Eingabekanal darf mit DCLOSE #k, z.B. DCLOSE #5, geschlossen werden, 
wenn er nicht mehr benötigt wird. Erforderlich ist das jedoch nicht, es sei denn, die Zahl 
offener Kanäle wird zu groß. 
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9.4 Direktzugriffsdateien 


Diesen Abschnitt sollten Sie beim ersten Durcharbeiten des Buches übergehen. Erst wenn 
Sie mit der floppy-disk hinreichend vertraut sind und die Textverarbeitung (Kap. 13) be- 
herrschen, verfügen Sie über das hierfür erforderliche Rüstzeug. 


Charakteristisch für die sequentiellen Dateien ist, daß ihre Sätze so hintereinander ge- 
speichert sind, wie die entsprechenden PRINT #-Anweisungen nacheinander ausgeführt 
wurden. Auch das Lesen solcher Dateien geht nur der Reihe nach. Ganz anders läuft hin- 
gegen die Bearbeitung von Direktzugriffsdateien (auch REL-Dateien genannt). Hier wird 
jeweils über eine Satznummer gesagt, welcher Satz als nächster geschrieben oder gelesen 
werden soll. Insbesondere dürfen beim Schreiben die Satznummern in beliebiger Folge 
auftreten, also z.B. zuerst der 5te, dann der 2te und danach der Ite Satz in die Datei ein- 
gestellt werden. 

Damit immer entsprechend große Lücken für die Sätze verfügbar sind, muß vorab die 
(maximale) Länge der Sätze festgelegt werden. 


Eine Direktzugriffsdatei wird eröffnet mit 

DOPEN #k,’’Name‘“,Ls,Dn 

Die Laufwerksangabe ‚, ‚Dn ‘‘ darf fehlen. 

Die (maximale) Satzlänge s muß zwischen 2 und 254 Zeichen liegen. 


Beispiel: 
18 DOPEN #7, "DIREKT“,L15® ® 


Falls auf dem angesprochenen Laufwerk noch keine REL-Datei "DIREKT“ existiert, wird 
diese mit der vereinbarten Satzlänge angelegt. Gibt es die Datei schon, muß im DOPEN 
die beim früheren Anlegen benutzte Satzlänge aufgeführt sein. 


Bevor ein Dateisatz angesprochen wird, muß ein Satzpointer gesetzt werden: 
RECORD#Kk,;ns,z1 

Die Satznummer ns und die Nummer des ersten zu übertragenden Zeichens z1 
werden als Konstante oder als eingeklammerte Variable geschrieben. Die Angabe 
des ersten Zeichens ist nur nötig, wenn es von 1 abweicht. 


Beispiel: 
70 RECORD#7,(K),15 


Diese Anweisung bedeutet, daß beim nächsten INPUT #7 oder PRINT #7 der K-te Satz 
vom 15. Zeichen ab übertragen wird. © 


Weder beim DOPEN noch beim RECORD wird festgelegt, ob ein Lese- oder ein Schreib- 
befehl ansteht. Vielmehr darf man sogar die Richtung der Datenübertragung ständig vari- 
ieren. Allerdings muß sichergestellt sein, daß niemals ein Satz zu lesen versucht wird, der 
noch nicht geschrieben wurde. Die Folge wäre ein Programmabbruch. Auf der anderen 
Seite darf Sie nicht stören, daß bei der RECORD#-Anweisung für eine neue Satznummer 
stets ein Fehler (Nummer 5®) gemeldet wird. Ignorieren Sie diese Meldung. 
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Ein- und Ausgabeanweisungen für eine Direktzugriffsdatei haben die Form 
INPUT #k,Liste bzw. 
PRINT #k,Liste 


Beispiele: 


80 PRINT#7,W$,CHR$ (13) 
9Ö RECORD#7, (K): INPUT#7,D$ e 


Beim Aufbau der Liste für die PRINT #-Anweisung ist sicherzustellen, daß die geschriebe- 
nen Daten später korrekt gelesen werden können. Daher müßte zwischen 2 Zahlen ein 
Komma gesetzt werden, so daß die Ausgabeliste z.B. nicht nur 


A;B;CHR$ (13) 
sondern 
A;’,“;B;CHR$ (13) 


lauten sollte. Störend bleibt aber auch dann noch, daß die genaue Lage der Daten inner- 
halb des Satzes nicht bekannt ist. Ein teilweises Lesen von Sätzen unter Benutzung der 
im RECORD-Kommando vorgesehenen Möglichkeiten ist praktisch undurchführbar. 


Um alle Vorteile des Direktzugriffs nutzen zu können, schreibt man am besten ausschließ- 
lich Strings. Das bedeutet keine Einschränkung hinsichtlich der Anwendung; denn Zahlen 
können mittels spezieller Funktionen zuvor in Strings und solche Strings wieder in Zahlen 
umgewandelt werden (s. Kap. 13). Auf diese Weise läßt sich eine starre Satzstruktur er- 
reichen. Z.B. könnten in einen Satz 10 Teilstrings von je 20 Zeichen eingestellt werden, 
die jeweils bei Stelle 1, 21, 41 usw. beginnen, so daß das gezielte Herausgreifen einzelner 
Zahlen (bzw. der entspr. Teilstrings) jederzeit möglich ist. 


9.5 Fehlerbehandlung 


Bei den Übungen zu diesem Kapitel haben wir auf die Radikalkur zur Überwindung von 
Fehlerbedingungen in der floppy-disk hingewiesen: das Aus- und Einschalten der gesamten 
Anlage. Dieses Vorgehen hat jedoch Konsequenzen, die oft nicht akzeptabel sind: Das aktu- 
elle Programm wird zerstört, die Fehlerursache kann nicht erkannt werden, und Datenbe- 
stände können verlorengehen. 

Ein besserer Weg ist, vom cbm-Rechner her die Fehlerbedingung abzufragen. Nach dieser 
Abfrage wird die Fehleranzeige der floppy-disk gelöscht und Sie erhalten Gelegenheit, Ihr 
Programm ordnungsgemäß abzuschließen (DCLOSE für Ausgabedateien geben!) oder gar den 
Lauf fortzusetzen. Voraussetzung ist, daß Ihr Programm eine entsprechende Routine ent- 
hält, damit Sie die Fehlerabfrage ohne Programmänderung bewerkstelligen können. 


Die Disketten-Fehlermeldung wird abgefragt mit 
?DS$ 
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Es empfiehlt sich, außerhalb des normalen Programmablaufs folgende Anweisungen auf- 
zunehmen, wobei Sie natürlich andere Zeilennummern verwenden dürfen. 


ch Ds 
6ÖNDI DCLOSE 


Wenn jetzt die Fehleranzeige an der floppy-disk rot aufleuchtet, können Sie durch Be- 
tätigen der STOP -Taste die Kontrolle übernehmen und nach der READY-Anzeige mit 
GOTO 6 in das vorgenannte Programmstück einsteigen. Nach Ausführung der Zeile 
6000M wird die Fehleranzeige erlöschen. Die Zeile 6BB®1 schließt anschließend alle 
Dateien. 

Wer schon etwas erfahrener ist kann versuchen, durch programmierte Anweisungen ohne 
manuellen Eingriff auf floppy-Fehler zu reagieren. Dazu muß zwischen je zwei floppy- 
Zugriffen die Fehlermeldung DS$ oder DS eingefragt werden. Dem Benutzerhandbuch 
Ihrer floppy-disk können Sie entnehmen, welche Fehlerkennzahlen vorkommen und 
was dabei jeweils zu tun ist. 


9.6 Aufgaben 


9-] Welche Anweisungen sind erforderlich, bevor mit einem PRINT #-Kommando ein 
Satz auf eine Diskette geschrieben werden kann? 

9-2 Wozu dient der Diskettenname? 

9.3 Wie können Sie sich das Inhaltsverzeichnis einer Diskette anzeigen lassen? Wie sieht 
der Inhalt des Programmspeichers unmittelbar danach aus? 

9-4 Was bewirkt das Kommando 

HEADER”N29“, 119, DP 

9-5 Schreiben Sie ein Programm, das die ersten 3 Sätze einer floppy-Datei liest. Der erste 
Satz soll eine, der zweite zwei und der dritte Satz drei Zahlen enthalten. Erstellen Sie 
für den Programmtest folgende Datei: 1 im 1. Satz. 2 und 3 im 2. Satz. 4,5 und 6 
im 3. Satz. 
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Bei vielen Benutzern findet man den Wunsch und oft auch die Notwendigkeit, die Ergebnis- 
se von Programmläufen oder die Programme selber in schriftlicher Form zu erhalten. Wenn 
Sie zu diesem Benutzerkreis zählen, sollten Sie Ihre Anlage herrichten (Papier einlegen, Ver- 
bindungskabel installieren, Stromversorgung für Rechner und Drucker einschalten) und den 
Gebrauch des Druckers trainieren. 

In diesem Kapitel werden wir nur die grundlegenden Möglichkeiten des Druckers anspre- 
chen, zumal diese für die meisten Anwendungen ausreichen. Wenn Sie den hier gebotenen 
Stoff beherrschen und Drucker-Ausgaben programmieren müssen, die sich damit nicht be- 
werkstelligen lassen, sollten Sie im Handbuch für Ihren Drucker nachsehen. Je nach Bauart 
bietet dieser weitere Ausgabevarianten, mit denen Sie Ihr konkretes Problem vielleicht lö- 
sen können. 


a) Schreiben Sie 
30 T1$8 = "CM RADIUS = > FLAECHE =“ 
49 T2$ = "QCM“ 
50 INPUT”’RADIUS‘;R 
6Ö PRINT R;T1$, 3.141 SY926*R*R;T28 
78 INPUT”’NEU RECHNEN () EINGEGEBEN)“ ;W$ 
80 IF WS =)“ THEN 50 
RUN 


Lassen Sie das Programm 2- bis 5-mal durchlaufen und geben Sie dann zur Beendigung 
ein von J verschiedenes Zeichen ein. 


Ergänzen Sie 
#5, 

in Zeile 60 unmittelbar hinter PRINT und schreiben Sie 
18 OPEN 5,4 


Lassen Sie das Programm mit den obigen Daten erneut laufen. Betätigen Sie anschließend 
am Drucker so oft die Taste für den Papiervorschub, bis Sie die Ausgabezeilen beider 
Programmläufe vergleichen können. 
b) Ergänzen Sie 
‚1:OPEN 6,4, 2 
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hinter der 4 in Zeile 19 und fügen Sie noch ein: 


20 PRINT#6,”ZZZ AAAAAAAAAAAAAAAAAAAAAA ZZZZZ.99 AAA“ 
90 CLOSE 5:CLOSE 6 


Lassen Sie dieses Programm ausführen. 


c) Um auch den bei Übung b) unterdrückten Teil der Ausgabe zu erhalten, ergänzen Sie 
hinter dem Anführungszeichen am Ende der Zeilen 3® und 49 jeweils 


+ CHR$ (29) 


Lassen Sie auch dieses Programm mit den obigen Eingabewerten laufen. Registrieren Sie 
die Unterschiede im Druckbild. 


d) Ersetzen Sie in Zeile 2 jedes Z durch eine 9 und sehen Sie sich an, wie dadurch die Aus- 
gabe beeinflußt wird. 


e) Schreiben Sie jetzt 


OPEN 7,4:CMD 7 
LIST 


und wenn das Drucken beendet ist 
PRINT#7 


10.1 Auflistung von Programmen 


Im Abschnitt 4.3 haben wir die Varianten des LIST-Kommandos erörtert, mit denen Teile 
eines Programms oder ein ganzes Programm auf dem Bildschirm angezeigt werden können. 
Wie Sie in Übung e) gesehen haben, können LIST-Kommandos so umdirigiert werden, daß 
die Programmzeilen auf dem Drucker angezeigt werden. 


Die Ausgabe eines LIST-Kommandos wird auf den Drucker gelegt durch 
OPEN k, 4:CMDk 


Darin ist für k eine Zahl zwischen 1 und 255 einzusetzen. 


Die Wirkung dieses Kommandopaares wird aufgehoben durch 
PRINT#k 


Das OPEN-Kommando kennen Sie bereits aus Kapitel 8. Es wird gegeben, wenn ein Über- 
tragungskanal zwischen dem Rechner und einem Peripheriegerät eröffnet werden soll. 
Welches Gerät gemeint ist, wird durch den zweiten Parameter gesagt, hier die 4, die Geräte- 
nummer des Druckers. Durch den Verweis auf den Drucker-Kanal im CMD-Kommando 
erfolgt das Umlegen der LIST-Ausgabe. Mit den nachfolgenden LIST-Kommandos werden 
die Programmzeilen solange gedruckt, bis die Wirkung von CMDk durch PRINT #k neu- 
tralisiert wird. 
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10.2 Ausgabe auf den Drucker 


Wie bei den anderen Peripheriegeräten muß auch hier ein Ausgabekanal eröffnet sein, ehe 
die entsprechenden PRINT #-Anweisungen ausgeführt werden dürfen. 


Ein Ausgabekanal vom Rechner zum Drucker wird festgelegt mit 
OPEN k, 4, s 

Die Kanalnummer k muß zwischen 1 und 255 liegen. 

Für die Sekundäradresse s sind zulässig: 

QÖ normaler Ausdruck 

1 formatierter Ausdruck 


Beispiel: 
20 OPEN 5,4, 1 


Die Ausgabeanweisung für den Drucker lautet 

PRINT #k, Liste 

worin k die Nummer eines zuvor eröffneten Drucker-Ausgabekanals ist. 

Wenn ein Kanal für formatierte Ausgabe angezogen wird, muß auch eine Formatie- 
rung festgelegt worden sein. 


Beispiel: 
49 PRINT #5, X, DM“ ® 


Die Liste wird nach den gleichen Regeln aufgebaut wie bei der gewöhnlichen PRINT-An- 
weisung. Wie die Übung a) gezeigt hat, sind auch die Ausgabezeilen für Bildschirm und Druk- 
ker völlig gleich, wenn ein Ausgabekanal mit Sekundäradresse ® benutzt wird. (Bei fehlender 
Sekundäradresse wird hier ® angenommen.) Für diese Ausgabeform gilt grundsätzlich alles, 
was in Kapitel 5 über die Ausgabe gesagt wurde. 

Anders verhält es sich mit der formatierten Ausgabe. Hier werden die Lage der Datenfelder 
und die Darstellungsform der Daten durch die Formatierung, auch Maske genannt, festge- 
legt. 

Wer aufwendige Druckerausgaben programmiert und im gleichen Programm noch andere 
Peripheriegeräte anspricht, läuft Gefahr, die Maximalzahl von 1® gleichzeitig geöffneten 
Kanälen zu überschreiten. Außerdem empfiehlt sich in jedem Fall das Schließen des Druk- 
ker-Ausgabekanals, weil sonst am Programmende unter Umständen der letzte Teil der Aus- 
gabe im Rechner hängenbleibt. Das liegt daran, daß die Ausgabe normalerweise mit Hilfe 
eines Pufferspeichers abgewickelt wird. Dieser wird nicht nach jeder PRINT-Anweisung zum 
Drucker übertragen, wohl aber beim Schließen des Ausgabekanals. 


Der Übertragungskanal k wird geschlossen mit 
CLOSE k 
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10.3 Formatierung 


Formatierungen werden über einen separaten Kanal an den Drucker übergeben. 
Ein Formatierungskanal wird festgelegt mit 
OPEN 1,4, 2 
Die Kanalnummer i muß zwischen 1 und 255 liegen. 
Beispiel: 
25 OPEN 6, 4,2 ® 
Eine Formatierung wird definiert durch 
PRINT #i, String 
Der String, als Konstante oder Variable, enthält Datenfelder, die durch Leerzeichen 
getrennt sein dürfen. 
Mit i wird auf einen Formatierungskanal verwiesen. 


Beispiel: 
30 PRINT #6, ’S9999.9 AAAA“ © 


Wenn eine PRINT #-Anweisung für formatierte Ausgabe ausgeführt wird, muß eine Forma- 
tierung definiert und der Formatierungskanal noch geöffnet sein. Im Laufe der Zeit dürfen 
verschiedene Formatierungen gegeben werden. Dabei muß aber sichergestellt sein, daß die 
Struktur der tatsächlichen Ausgabeanweisungen und die der aktuellen Formatierung über- 
einstimmen. Die auszugebenden Werte (Zahlen oder Strings) werden der Reihe nach den 
Datenfeldern zugeordnet, die im Typ jeweils passen müssen. Überschüssige Datenfelder wer- 
den ignoriert. Sind zuwenig Datenfelder vorhanden, wird der Formatierungsstring mehrfach 
interpretiert. 

Beispiele von Datenfeldern haben Sie in Zeile 20 der Übungen c) und d) gesehen. Das Feld 
ZZZ führte zu einer 3stelligen Darstellung des Radius im Ausgabesatz. Aber auch beim 

Feld 999 erfolgte eine 3stellige Ausgabe, diesmal jedoch ohne führende Nullen. Entspre- 
chendes galt für die Strings und die Abstände zwischen benachbarten Datenfeldern. 


Lage und Länge der Datenfelder im Formatierungsstring und in der Ausgabezeile 
sind identisch. 


Das heißt u.a., daß die Länge des Formatierungsstrings die Länge der Ausgabezeile be- 
stimmt. Ist dieser String länger als die Druckerzeile, werden die überschüssigen Zeichen in 
die nächste Druckerzeile gesetzt. 


Lassen Sie uns nun auf die Datenfelder eingehen. 
Ein String-Datenfeld wird durch ein oder mehrere A dargestellt. 
| Jeder tatsächlich auszugebende String muß mit CHR$ (29) beendet werden. 
Die Notwendigkeit von CHR$(29)(s. Kap. 13) haben die Übungen b) und c) gezeigt. Dane- 
ben scheinen noch folgende Hinweise nützlich. 


Strings werden linksbündig in das Datenfeld eingestellt und ggf. die überschüssigen Zeichen 
hinten abgeschnitten. Führende Leerstellen werden ignoriert, es sei denn, sie wurden in Ver- 
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bindung mit der SHIFT-Taste programmiert. Da das abschließende CHR$ (29) nicht ausge- 
geben wird, muß dafür im Datenfeld keine Stelle vorgesehen werden. 
Bei Datenfeldern für die Ausgabe numerischer Werte haben Sie mehrere Varianten zur Aus- 
wahl. 
Jede Stelle eines Datenfeldes für numerische Ausgabe kann durch eine 9 definiert 
werden. 
Für das Dezimalzeichen wird ggf. ein Punkt gesetzt. 
Im gesamten ganzzahligen Teil darf anstelle der 9 das Z benutzt werden. 


Bei Verwendung dieser Codes wird das Vorzeichen der Ausgabewerte ignoriert, es wird also 
nur der Betrag der Werte gedruckt. Wenn dessen ganzzahliger Teil nicht in das vorgesehene 
Feld paßt, wird das gesamte für diese Zahl in der Ausgabezeile eingeplante Feld mit Sternen 
gefüllt. Z und 9 unterscheiden sich darin, daß beim Z-Code jede Stelle im Ausgabefeld be- 
druckt wird. Bei Bedarf werden führende Nullen eingesetzt. Beim 9-Code hingegen wird der 
ganzzahlige Teil erst ab der ersten von Null verschiedenen Ziffer gedruckt. 


Zur Ausgabe des Vorzeichens darf entweder ein S vor oder ein Minuszeichen hinter 
ein nach den vorstehenden Regeln gebildetes Datenfeld gesetzt werden. 


Bei S wird in der Ausgabe stets das Vorzeichen (+ oder -) vorangestellt, während bei — nur 
das negative Vorzeichen nachgestellt wird. 


Beispiele sind nachstehend aufgeführt. 


Ausgabe von 100 1 0.19 Datenfeld 





10.4 Aufgaben 


10-1 Wenn Sie in ein Programm mit Bildschirmausgabe an den Anfang ein OPEN k, 4 für 
unformatierte Druckerausgabe und hinter jedes PRINT den Verweis auf den Ausga- 
bekanal (#k,) setzen, erscheint die Ausgabe unverändert auf dem Drucker. Entspre- 
chendes gilt für den Übergang von unformatierter Drucker- auf die Bildschirmausgabe. 


Ist diese Aussage wirklich uneingeschränkt richtig, oder sind gewisse Teile der Ausga- 
be nicht übertragbar? 
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10-2 Schreiben Sie ein Programm, das in 2 nebeneinanderliegenden Kolonnen Zahlen X 
und deren Quadrat ausgibt. Die Zahlen sollen mit 3 Ziffern hinter dem Dezimalpunkt 
und bis zu 3 Ziffern vor dem Punkt sowie mit Vorzeichen dargestellt werden. Zwi- 
schen den Kolonnen sollen 3 Stellen frei bleiben. Die Kolonnen sollen X bzw. Xt2 
als Überschrift erhalten, wobei das X genau über den Punkten stehen soll. Lassen Sie 
das Programm mit ca. 10 teils positiven und teils negativen X-Werten laufen. 


10-3 Lassen Sie das Programm zu Aufgabe 10-2 (oder ein anderes) ausdrucken. 
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11 Schleifen 


Programmteile, die mehrfach durchlaufen werden, lassen sich mit einer bedingten Sprungan- 
weisung programmieren. In vielen Fällen kann stattdessen die spezielle Schleifenanweisung 
benutzt werden, die wir uns jetzt ansehen wollen. 


a) Schreiben Sie folgendes Programm und notieren Sie die Ergebnisse des Programmlaufs. 


10 K=25 

29 ?K 

50 K=K+1.5:1F K<= 7.5 THEN 20 
60 ?”ENDE“ 


b) Ändern Sie die folgenden Zeilen. 


18 FORK = 2.5 TO 7.5 STEP 1.5 
5ß NEXT 


Lassen Sie das geänderte Programm laufen, und vergleichen Sie die Ergebnisse mit denen 
aus Übung a). 


c) Löschen Sie in Zeile 1® die Zeichen 


STEP 1.5 


Sehen Sie sich an, welchen Einfluß das auf die Leistung des Programms hat. 


11.1 Schleifen im Ablaufplan 


Bei der Einführung des GOTO-Kommandos haben wir erwähnt, daß es bei einigen Klassen 
von Programmen sinnvoll ist, vom Ende des Programms wieder an seinen Anfang zu sprin- 
gen. Derartige Schleifen werden hier nicht erörtert. Jetzt geht es darum, einen echten Teil 
eines Programms mehrfach in Serie zu durchlaufen, d.h. dieses Stück als Schleife zu formu- 
lieren, und dann in einen anderen Programmteil einzusteigen. 


Bild 11.1 zeigt die Darstellung von Schleifen in Ablaufplänen. Der Planausschnitt a stammt 
aus dem Beispiel des Abschnitts 7.3, den Ausschnitt b finden Sie in Übung a) wieder. Bei- 
den gemeinsam ist, daß die Schleifensteuerung über eine Variable (S bzw. K) erfolgt, deren 
Wert in der Schleife systematisch verändert wird. Vor der Schleife erhält diese Variable ei- 
nen Startwert. Am Ende der Schleife wird durch einen Vergleich mit einem Schwellenwert 
entschieden, ob ein weiterer Durchlauf erfolgen soll. 

Der wesentliche Unterschied liegt in der Art, wie die zur Steuerung benutzte Variable ver- 
ändert wird. Im Fall a werden unterschiedliche, im Fall b gleiche Summanden addiert. Nur 
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K=2.5,7.5,1.5 






Bild 11.1 Schleifensymbol | 


für Schleifen der zweiten Art läßt sich die BASIC-Schleifenanweisung verwenden. Da in ei- 
nem detaillierten Ablaufplan genau festgelegt wird, welche ausführbaren Anweisungen pro- 
grammiert werden sollen, ist ein Schleifensymbol erforderlich. Wir umschließen die Schleife 
mit einem stärker gezeichneten Rechteck, in dessen oberen Rand ein flach gestrecktes Sechs- 
eck für die Aufnahme der Laufliste gesetzt wird. Dieses recht anschauliche Schleifensymbol 
wird von zahlreichen EDV-Anwendern benutzt. Es ist mit der DIN 66091, die kein Schlei- 
fensymbol kennt, verträglich, während die anderen, in diesem Buch verwendeten Symbole 
der genannten Norm entstammen. Wie die Schleife aus Fall b mit Hilfe der Schleifensym- 
bolik dargestellt wird, sehen Sie in Bild 11.1, Fall c. 


In dem Rahmen, der die Schleife umschließt, sind alle Ablaufplansymbole erlaubt, also dür- 
fen dort insbesondere auch Schleifen auftreten. Beachten Sie, daß die äußere Schleife die 
innere dabei vollständig umfaßt. Eine nur teilweise Überschneidung von Schleifensymbolen 
ist unzulässig. Welchen Bedingungen die Laufliste genügen muß, finden Sie im nächsten Ab- 
schnitt. 


11.2 Schleifenanweisung 


Im Ablaufplan werden die Symbole durch einen Rahmen eingegrenzt, die den Inhalt einer 
Schleife bilden. Eine entsprechende Begrenzung muß auch im Programm vorgenommen wer- 
den. 


Der Schleifenanfang wird festgelegt mit 
FORk=kaTOkeSTEPks 


Das Schleifenende wird markiert durch 
NEXT oder NEXT k 
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Für k ist eine Variable einzusetzen. 
Für ka, ke und ks sind arithmetische Ausdrücke erlaubt. 


Wenn mit der Schrittweite 1 gearbeitet werden soll, darf die Angabe STEP ks ent- 
fallen. 


Der BASIC-Interpreter versteht das Kennwort FOR als Anfang einer Schleife und erwartet 
dahinter die Laufliste. Außerdem muß zu jeder FOR-Anweisung später eine NEXT-Anwei- 
sung auftreten. Ein dadurch eingegrenzter Schleifenbereich wird zunächst einmal durchlau- 
fen, wobei die Laufvariable k ihren Anfangswert ka trägt. Sodann wird die Laufvariable bei 
positiver (negativer) Schrittweite ks erhöht (verringert): k= k + ks. Falls der neue Wert der 
Laufvariablen noch nicht größer (kleiner) als der Endwert ke ist, wird die Schleife erneut 
durchlaufen. Dieses Wechselspiel von Änderung der Laufvariablen und erneutem Schleifen- 
durchlauf wiederholt sich solange, bis der Endwert überschritten (unterschritten) würde. 
Einen Punkt wollen wir noch einmal betonen: 


| Eine Schleife wird mindestens einmal durchlaufen. 


Innerhalb einer Schleife dürfen beliebige Anweisungen auftreten, z.B. wiederum Schleifen, 
die dann aber vollständig ineinandergeschachtelt sein müssen. Im Falle von 2 Schleifen sieht 
der BASIC-Interpreter das erste NEXT als Ende der inneren und das zweite als Ende der 
äußeren Schleife an. Damit ist für ihn die Schachtelung korrekt. Falls Sie das Ende in der 
Form NEXT k programmieren, müssen Sie darauf achten, daß zunächst die innere und dann 
die äußere Schleife geschlossen wird. Dieses gilt analog, wenn mehr als 2 Schleifen ineinan- 
der liegen. 

Besondere Sorgfalt ist angebracht, wenn Schleifen und Sprünge zusammentreffen. Verboten 
ist, in eine Schleife hineinzuspringen. Von außen dürfen Sie nur über die FOR-Anweisung 
kommen, die Sie auch anspringen dürfen. Soll ein Schleifendurchlauf abgebrochen bzw. 
zum nächsten Wert der Laufvariablen übergegangen werden, muß das Schleifenende ange- 
sprungen (erreicht) werden. Darüber hinaus darf ein Schleifenbereich über einen Sprung 
verlassen werden. 

Falls der Sprung aus einer inneren in eine äußere Schleife führt, müssen die Schleifenenden 
in der Form NEXT k codiert werden, weil der Interpreter andernfalls die Enden falsch zu- 
ordnet. Nach Möglichkeit sollte man solche Sprünge vermeiden. Ein Beispiel am Schluß des 
nächsten Abschnitts zeigt, wie Sie mitunter auf Sprünge verzichten können. 
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Diesen Abschnitt wollen wir mit der Erörterung eines kleinen Beispiels beginnen. 

Problem: Es sollen N Preise P; gelesen und ihre Summe S berechnet werden. Falls S ober- 
halb 1000 liegt, sollen alle Einzelpreise und die Summe, andernfalls soll nur die Summe aus- 
gegeben werden. Externe Speicher dürfen nicht verwendet werden. 

Falls es nur auf die Berechnung und Ausgabe der Summe 5 angekommen wäre, hätte man 
nach dem Ablaufplan a aus Bild 11.2 arbeiten können. In der zentralen Verarbeitungs- 
schleife wird jeweils ein Preis P gelesen und in die Summe 5 einbezogen. Beim nächsten 
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Durchlauf wird wieder ein Preis gelesen und ebenfalls auf der Variablen P gespeichert. Da- 
bei wird der alte Wert von P zerstört. Das könnte man in Kauf nehmen, vielmehr wäre es 
sogar sinnvoll, wenn es nur auf S ankäme. 

Um unser Problem zu lösen, dürfen wir die Einzelpreise nicht durch ständiges Überspeichern 
vergessen. Wir müssen sie mindestens solange alle separat speichern, bis die Gesamtsumme 
bekannt ist. Folglich müssen wir beim Lesen der Preise lauter verschiedene Speicherplatzbe- 
zeichnungen benutzen. Doch wie sollen wir das formulieren, zumal die Anzahl der Preise 
variabel ist? 

Mit unserem derzeitigen Kenntnisstand ist das Problem nicht zu lösen. Wir brauchen eine 
Speicherzugriffstechnik, bei der die Speicherplatzbezeichnungen vom Programm generiert 
werden und nicht als Variablennamen starr festgeschrieben sind. Diese Anforderungen las- 
sen sich mit indizierten Variablen befriedigen. 


a) b) 


Eingabe: 
N 


S=0 
DIM P(N) 


Eingabe: 
P(K) 
















Ausgabe: 
S 







Ausgabe: 
P(L) 


Ausgabe: 
5 






Bild 11.2 
Summe von Eingabewerten 
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Die Bezeichnung einer indizierten Variablen umfaßt einen Namen und eine Indexliste: 
Name (Indexliste) 

Der Name wird nach den Regeln für Variablennamen geschrieben. 

In der Indexliste stehen einer oder mehrere durch Kommas getrennte Indizes. 

Jeder Index darf als arithmetischer Ausdruck geschrieben werden. 

Der Wert eines Index darf nicht negativ sein, der echt gebrochene Anteil wird ignoriert. 


Alle indizierten Variablen mit gleichem Namen bilden einen sog. Array. Wenn in der Index- 
liste jeweils nur ein Index steht, nennt man den Array auch einen Vektor, wenn stets ein In- 
dexpaar auftritt, spricht man von einer Matrix. Das einzelne Element eines Arrays kann eine 
Zahl (einen String) aufnehmen und genauso verwendet werden wie eine gewöhnliche (String-) 
Variable. Der Vorteil der indizierten Variablen liegt in der Möglichkeit, während der Pro- 
grammausführung den Index zu ändern, so daß ein und derselbe Befehl in einem Lauf mit 
verschiedenen Speicherplätzen arbeiten kann. 


Beispiele von indizierten Variablen: 
A(3)IAB(5,K,X + 1)IAB$(A (2), 7)IA% (2, A) ® 


Bemerkenswert ist, daß die hier aufgeführten Arraynamen im selben Programm auftreten 
dürfen, sie vertragen sich auch mit Variablen gleichen Namens, z.B. A, A % oder AB$, Bei 
gleichen Arraynamen dürfen aber keine Indexlisten verschiedener Struktur benutzt werden, 
so daß z.B. A (3) und A (4, 5) unverträglich sind. 


Lassen Sie uns nun in der Erörterung des am Anfang dieses Abschnittes gestellten Problems 
fortfahren! Als Schwachstelle hatten wir bereits das Lesen der Preise erkannt. Dort werden 
wir jetzt eine einfach indizierte Variable verwenden und dafür sorgen, daß sich bei jedem 
Schleifendurchlauf ein anderer Index ergibt. Das gelingt besonders einfach, wenn wir als 
Index die Laufvariable nehmen. So erhalten wir schließlich den Plan b aus Bild 11.2. 


Mancher Leser wird bei der Ausgabeschleife in diesem Ablaufplan Bedenken haben, ob die 
Zahlen, die wir auf P(K) gelesen haben, mit P(L) wiedergefunden werden. Machen Sie sich 
bitte klar, was wir über den Index gesagt haben. Er wird als arithmetischer Ausdruck ange- 
sehen, dessen Wert zu ermitteln ist. Der ganzzahlige Teil dieses Wertes dient als tatsächlicher 
Index. Entscheidend ist daher, daß die Indizes in der Lese- und der Ausgabeschleife die 
gleiche Zahlenmenge durchlaufen. Ob wir dabei als Index verschiedene Variablen benutzen 
oder nicht, ist unwichtig. 

Wir müssen noch auf die Speicherung indizierter Variabler eingehen und können an Bemer- 
kungen aus Kapitel 5 anknüpfen. Dort hatten wir schon gesagt, daß die Variablen in einem 
bestimmten Speicherbereich angelegt werden. Wenn der BASIC-Interpreter in einer Anwei- 
sung einen Variablennamen findet, sieht er in einer Tabelle nach, wo der zugehörige Spei- 
cherplatz anfängt. Steht der Name nicht in der Tabelle, wird er ergänzt und ihm eine Platz- 
adresse zugeordnet. Entsprechend verfährt der Interpreter, wenn er auf einen Arraynamen 
stößt. Allerdings bedarf es hier grundsätzlich einer Absprache darüber, wieviel Speicherplatz 
dem Array zugeordnet wird. Sie können auf individuelle Vereinbarungen verzichten, wenn 
Sie die Standarddimensionierung übernehmen wollen. 
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Wenn der BASIC-Interpreter auf eine indizierte Variable aus einem Array trifft, der 
noch nicht angelegt ist, legt er ihn so an, daß er die Anzahl der Dimensionen aus der 
aktuellen Indexliste und für jede Dimension als maximalen Index 19 nimmt. 


Falls Sie den Indexbereich [®, 19] nie verlassen und damit insbesondere bei mehrfach indi- 
zierten Arrays keine große Platzverschwendung verbunden ist, sollten Sie die Standarddi- 
mensionierung nutzen. Andernfalls müssen Sie vor der ersten Verwendung den Array indi- 
viduell anlegen lassen. 


Arrays werden angelegt mit 
DIM Name (Liste maximaler Index werte) 


In der Liste wird für jede Dimension der maximale Index in Form eines arithmeti- 
schen Ausdrucks festgelegt. Bei 2 oder mehr Dimensionen werden die Angaben durch 
Kommas getrennt. 


Beispiel für Sprünge bei geschachtelten Schleifen. 


Wir wollen ein Programmstück erörtern, mit dem die Verteilung von Zufallszahlen auf vor- 
gegebene Intervalle erfaßt wird. Folgende Werte seien bekannt, Arrays seien ausreichend 
dimensioniert: 


M Anzahl der Zahlen 
N Anzahl der Grenzen 
X(1)<Xl2)<...<X(N) Grenzen 


Mit RND(TI) (s. Kapitel 12) können Zufallszahlen erzeugt werden, und für jede soll das In- 
tervall (X; _ ı, X;] ermittelt werden, in dem die Zahl liegt. 


Bild 11.3 zeigt Ihnen einen Lösungsvorschlag. In der inneren Schleife wird das Intervall ge- 
sucht. Ist es gefunden, kann der Eintrag erfolgen und zur nächsten Zufallszahl übergegangen, 
d.h. die äußere Schleife erneut durchlaufen werden. Falls Sie hier die Schleifenenden nur 

als NEXT codieren, läuft das Programm falsch; denn nach dem ersten Sprung von Zeile 13® 
nach Zeile 160 werden keine weiteren Zufallszahlen generiert. 


Bild 11.4 zeigt eine Alternativlösung, die ohne Sprünge auskommt. Nachdem das Intervall 
gefunden und der Eintrag erfolgt ist, wird die Laufvariable der inneren Schleife auf ihren 

Endwert gesetzt. Deshalb wird diese Schleife anschließend verlassen und die äußere erneut 
durchlaufen. ® 


11.4 Aufgaben 


11-1 Schreiben Sie ein Programm, das n liest und n! (sprich: n Fakultät) berechnet. Es ist 
n!= 1*2*3,... *n. 


11-2 Schreiben Sie ein Programm, das m und n liest (n positiv, ganzzahlig) und (”) (sprich: 
m über n) berechnet. 
_m*(m-1)...*(m+1-n) 
Es ist (m) = 1*2..*n 


Anm.: (%) ist die Anzahl verschiedener Lottoreihen. 
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| 
| 
188 FORK=1TOM 
Z=RND(TI) 118 Z= RND(TI) 


128 FORL=1TON 









130 IFZ <= X(L) THEN 169 
140 NEXTL 

150 GOTO 179 

168 V(L)=V(L)+1 


178 NEXTK 


Bild 11.3 Verteilung von Zufallszahlen, 1. Version 


198 FORK=1TOM 


| 
Z= RND(TI) 


118 Z= RND(TI) 






128 FORL=1TON 


138 IFZ<=X(L) THEN V(L)= V(L)+1:L=N 


V(L)=V(L)+1 


L=N 


148 NEXT 


158 NEXT 


| Bild 11.4 Verteilung von Zufallszahlen, 2. Version 
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11-3 In Bild 11.1, Teil b und c, sind für positive Schrittweite eine explizite und eine 
FOR ... NEXT-Schleife gegenübergestellt. Geben Sie mit Hilfe der Vorzeichenfunk- 
tion SGN (s. Abschnitt 12.3) eine BASIC-Formulierung der allgemeinen expliziten 
Schleife, die sowohl für positive als auch für negative Schrittweiten genau der FOR ... 
... NEXT-Schleife entspricht. 


11-4 Schreiben Sie ein Programm, das n Punkte der (X, Y)-Ebene liest (Reihenfolge: n, X,, 
Yı,X2, Y23 X Yn), und nach X aufsteigend sortiert. 
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12 Unterprogramme 


Wenn Sie mit der Programmierung einer größeren Aufgabe konfrontiert sind, sollten Sie 
frühzeitig darangehen, die gestellte Aufgabe in Teilaufgaben zu gliedern. Dabei werden Sie 
oft erleben, daß an verschiedenen Stellen des Gesamtablaufs die gleichen Teilprobleme auf- 
treten. Das legt die Frage nahe, ob es möglich ist, ein solches wiederkehrendes Teilproblem 
in dem zu erstellenden Programm nur einmal abzuhandeln und das betreffende Programm- 
stück mehrfach zu nutzen. In diesem Kapitel wollen wir uns ansehen, wie weit dieses Vor- 
gehen von cbm-BASIC unterstützt wird. 


a) Schreiben Sie 
10 INPUT "A, B“;A,B 
20 GOSUB 19 
30 2”Z30“, A 
40 INPUT ”C, D‘;C,D 
50 GOSUB 199 
60 ?”’Z60“, A 
78 GOTO 19 
108 IFB<ATHENA=B 
118 RETURN 


Lassen Sie das Programm 2- bis 3mal mit lauter verschiedenen Zahlen durchlaufen. 
Beenden Sie die Ausführung, ohne das Programm zu zerstören (ggf. in Abschnitt 6.1 
nachsehen). 


b) Ergänzen Sie die nachfolgende Zeile 45 und lassen Sie das Programm mit den gleichen 
Zahlen arbeiten wie in Übung a). Notieren Sie dabei die Folge der Eingabe- und Ausga- 
bezeilen. 


45 A=-C:B=D 
c) Löschen Sie den Programmspeicher und schreiben Sie 
18 DEFFNTF (X) = ((X - 3)*X + 3)*X 1 
28 INPUT X 
30 ?FNTF (X) 
40 GOTO 29 


Lassen Sie das Programm einige Male laufen und geben Sie am besten kleine ganze Zah- 
len ein. 


d) Lassen Sie die Zeile 19 unverändert und ersetzen Sie in den Zeilen 20 und 3® das X je- 
weils durch ein A. Starten Sie das Programm, und geben Sie die gleichen Zahlen ein wie 
in Übung c). 
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e) Ergänzen Sie jetzt 
15 X=3 
Lassen Sie das Programm mit einem Eingabewert ungleich 3 laufen und überzeugen Sie 


sich, daß der Inhalt von X nicht verändert wurde. Sehen Sie notfalls in Kapitel 4 nach, 
wie Sie das kontrollieren. 


12.1 Subroutine 


In Übung b) haben Sie ein Programm geschrieben, das an 2 Stellen Zahlenpaare liest und 
jeweils die kleinere der beiden ausgibt. Der Größenvergleich ist aber nur einmal (Zeile 199) 
codiert. Diese Zeile ist also nach jedem Lesen ausgeführt worden, was offenbar durch 
GOSUB 1ß® erreicht wurde. Hätten wir stattdessen beide Male GOTO 1ß® geschrieben, 
wäre ebenfalls nach dem Lesen der Vergleich ausgeführt worden. Wir fragen uns daher, wo 
der Unterschied zwischen GOTO 199 und GOSUB 198 liegt. Diesen Unterschied erkennen 
Sie, wenn Sie in Ihr Protokoll der Übung b) schauen. Dort ist ausgewiesen, daß mit ver- 
schiedenen Anweisungen ausgegeben wurde. Der Rechner hat sich offenbar gemerkt, von 
wo er zur Zeile 10 geschickt wurde, und ist jeweils dahin zurückgekehrt. Genau hierin 
liegt der Nutzen des Subroutine-Aufrufs GOSUB. 

Bevor wir eine Subroutine aufrufen, müssen wir jedoch dafür sorgen, daß die Zahlen, die 
wir in der Subroutine verarbeiten wollen, auf den Plätzen stehen, die in der Subroutine be- 
nutzt werden. Deshalb hat in Übung a) die Eingabe von C und D nichts bewirkt. Erst nach 
Ergänzung der Zeile 45 (Übung b) wurde auch für das Paar C, D die kleinere Zahl be- 
stimmt. Beachten Sie aber bitte, daß durch die erneute Belegung der Plätze A und B de- 
ren alter Inhalt verloren geht. Hätten wir diese alten Werte später im Programm noch be- 
nutzen wollen, hätten wir sie rechtzeitig auf andere Plätze umspeichern müssen. 


Um möglichen Irrtümern vorzubeugen, wollen wir betonen, daß GOSUB und RETURN ein 
logisch zusammenhängendes Paar von Anweisungen bilden. RETURN wirkt nur, wenn zu- 
vor ein GOSUB erfolgte. Dabei ist durchaus gestattet, von einer Subroutine eine weitere 
aufzurufen. Der Rechner trägt nämlich bei GOSUB die zugehörige Rückkehradresse in eine 
Tabelle (von max. 26 Plätzen) ein. Wenn er auf ein RETURN-Kommando stößt, kehrt er zur 
jüngsten dieser Adressen zurück und streicht sie aus der Liste. Deshalb sollten Sie stets dar- 
auf achten, daß die Rückkehr aus einer Subroutine wirklich über RETURN erfolgt, damit 
die erwähnte Tabelle korrekt geführt wird. 


Lassen Sie uns diese Ausführungen in Regeln zusammenfassen: 
Eine Subroutine, die bei der Zeile mit der Nummer n beginnt, wird aufgerufen mit 
GOSUBn 


Mit RETURN wird hinter das GOSUB zurückgekehrt, das die betreffende Subroutine 
aufgerufen hat. 


Eine Schachtelung von Subroutine-Aufrufen ist erlaubt bis zu einer maximalen Tiefe 
von 26. 
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Ähnlich wie beim berechneten Sprung können von einer Stelle alternativ verschiedene Un- 
terprogramme aufgerufen werden. 


Diese Anweisung hat die Form 

ON aGOSUB nn], n2,..., nk 

Darin sind a ein nicht negativer arithmetischer Ausdruck und n] bis nk Zeilennum- 
mern, bei denen jeweils eine Subroutine beginnt. 


Wenn der ganzzahlige Teil von a nicht zwischen 1 und k liegt, wird sofort mit der nächsten 
Anweisung fortgesetzt. Andernfalls wird vorher zum entsprechenden Unterprogramm ver- 
zweigt, d.h. z.B. bei a= 2 nach n2, und nach RETURN die auf ON ... GOSUB folgende 
Anweisung ausgeführt. 


Beispiel für die Verwendung einer Subroutine: 


In einem (X, Y)-Koordinatensystem (X-Achse waagerecht) seien n Punkte (X,, Yı), ... 

3X, Yn) gegeben. Diese sollen spaltenweise aufsteigend sortiert werden, wobei der 

ganzzahlige Teil der X-Koordinate die Spalten definieren soll. 

Wir wollen diese Aufgabe so lösen, daß alle Sortierungen von einem Unterprogramm vorge- 

nommen werden. Deshalb speichern wir die Koordinaten in einer (n,3)-Matrix K: 

X in Spalte 1, Y in Spalte 2, [X] in Spalte 3. ([X] bedeutet größte ganze Zahl < X.) 

Auf folgenden Wegen kommt man zum Ziel: 

Weg A: 

1. Alle Punkte nach [X] sortieren. Danach liegen die Punkte einer Spalte, d.h. mit glei- 
chem [X] hintereinander. 


2. Jede dieser Spalten getrennt nach Y sortieren. 

Weg B: 

1. Alle Punkte nach Y sortieren. 

2. Alle Punkte nach [X] sortieren unter Beibehaltung der Vorsortierung aus Schritt 1. 


Wir wollen den Weg B realisieren. Bild 12.1 zeigt den entsprechenden Ablaufplan. Die Sor- 
tierung läuft so, daß nach dem ersten Durchlauf der äußeren Schleife die kleinste aller 
Zahlen auf Platz 1 steht, nach dem zweiten Durchlauf die kleinste der restlichen Zahlen 
(das ist die zweitkleinste von allen) auf Platz 2 usw. Bei jedem Durchlauf ist der auf dem 
HI-ten Platz stehende Wert mit allen nachfolgenden zu vergleichen, was in der H2-Schleife 
geschieht. Findet sich auf dem H2-ten Platz ein kleinerer Wert, wird er auf den HIl-ten Platz 
gebracht, und die bis dahin auf den Plätzen von einschließlich HI bis ausschließlich H2 
stehenden Zahlen werden um einen Platz nach hinten verschoben. Diesem Zweck dienen 
die beiden über L und M laufenden Schleifen. 


Das Hauptprogramm, auch MAIN genannt, reduziert sich in unserem Beispiel auf die Da- 

tenein- und -ausgabe sowie den zweimaligen Subroutineaufruf. Vor jedem Aufruf muß na- 
türlich noch festgelegt werden, nach welchem Begriff zu sortieren ist. Diesen Ablauf sehen 
Sie auch in Bild 12.1, während Bild 12.2 die BASIC-Version des gesamten Programms dar- 
stellt. © 
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K(M, L)=K(M-1,L) 






T=K(H1,$) 





Bild 12.1 Ablaufplan für die spaltenweise Sortierung von Punkten der Ebene 
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FERDT. 


i FEM SFALTEHNMEISE SORTIERUNG WON FÜHETEN 
zZ FEM SFALTE: [ 222.08]+1 : 
IHFUT"AHERHL ".HO DIN kRCH.D. 


18 

za FOR L=1 TOH 

za IMFUT"T.T "IEEL.12.EKÜL.Ö 

4a KiL.35=INTCELL. 120 

sa NEST 

tif S=2 "GOSUE Sad REM SORT NACH '" 
124 ==2 -GOSUE Sea "REM SORT HACH De) 
15a FÜR L=1 TÜH 

lei FEINT KÜL.i2.KiL.OD 

ta HEART 

155 EMI 

E21 FEM Ur SORT HACH SFALTE = 
iM IF HZ THEN FETUFRN 

sea Für Hi=1 TO N-1 

534 T=EiH1l.2: "REM YERGLEICHENERT 
43 FÜR HZ=Hi+1 TOM 

=SsH IF KECHE.5:2=T THENESHA 

sa REM FUHRT HZ "ÜrR FUHET Hi SETZEN 
Sei FÜR L=1 TO: 

KH T=KÜHE.L: 

=55 FÜR M=HE TO Hi+1 STEF -1 

aa KLM.Li=kıM-1.L0 

1 NEST 

21 KiHl.L>=T 

zit NHE=T :REM FUHNETE LOFAL HEU GEORDNET 
== T=EÜHl.=0 FEM HEUER YERGLEICHSHERT 
ES HES=T 

EEE NEST 

Erd FETUFH 
FERI. 
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12.2 Funktion 


Mit der Subroutine steht uns ein Weg zur Verfügung, Unterprogramme beliebiger Länge zu 
formulieren. Falls der Umfang jedoch auf die Berechnung eines arithmetischen Ausdrucks 
beschränkt ist, können wir das Unterprogramm auch als Funktion codieren. 


Eine Funktion muß dem BASIC-Interpreter bekannt sein, ehe sie erstmals benutzt 
wird. 


Eine Funktion wird definiert mit 
DEFFNxx (Argument)=arithmetischer Ausdruck 


FNxx ist der Funktionsname, wobei für xx der Name einer gewöhnlichen Variablen 
eingesetzt werden darf. 


Das Argument wird als gewöhnliche Variable geschrieben. 
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Die Reihenfolge hinsichtlich Definition und Aufruf ist hier also anders als bei Subroutinen. 
Doch auch der Aufruf einer Funktion erfolgt anders. Es ist dafür keine eigene Anweisung 
nötig. 
Eine Funktion wird aufgerufen durch Nennung ihres Namens und des aktuellen Ar- 
guments in einem arithmetischen Ausdruck. 


Das aktuelle Argument darf ein arithmetischer Ausdruck sein. 


Funktionsaufrufe dürfen also überall dort stehen, wo BASIC einen arithmetischen Ausdruck 
zuläßt: auf der rechten Seite einer Wertzuweisung, in der Liste eines Ausgabekommandos 
und im aktuellen Argument beim Aufruf einer anderen Funktion. Insbesondere dürfen in 
dem arithmetischen Ausdruck, mit dem eine Funktion definiert wird, andere Funktionen 
aufgerufen werden, vorausgesetzt, der BASIC-Interpreter kennt diese anderen Funktionen 
schon. 

Sehen wir uns nun an, wie eine Funktion beim Aufruf mit Zahlen versorgt wird. Falls 

außer dem Argument weitere Variablen im definierenden Ausdruck stehen, werden deren 
momentane Werte benutzt. Insoweit haben wir hier die gleiche Situation wie bei einer Sub- 
routine. Anders verhält es sich mit dem Argument. 


Beim Aufruf einer Funktion wird der Wert des aktuellen Arguments ermittelt und 
im definierenden Ausdruck anstelle des formalen Arguments verwendet. 


Beispiele: 


10 DEFFNF (X) = 2*X 
20 P=FNF (3.5) 


Hierdurch erhält P den Wert 7. 
10 DEFFNG(T) = 1+SQR(T) 


20 T=2 
38 Q=FNG(T +2) 
Hierdurch erhält Q den Wert 3 (als 1 +4). \ 


Bemerkenswert ist, daß im 2. Beispiel nach Ausführung der 3 Zeilen T den Wert 2 trägt, 
obwohl die Funktion mit dem Argument 4 aufgerufen wurde. Sie kennen diesen Effekt 
auch schon aus Übung e). 


Ein formales Argument ist nicht identisch mit einer gewöhnlichen Variablen gleichen 
Namens. 


12.3 Mathematische Standardfunktionen 


Eine Reihe von Funktionen sind Bestandteil des com-BASIC. Diese unterscheiden sich hin- 
sichtlich der Namenskonventionen von den selbst geschriebenen. Beim Aufruf hingegen be- 
steht Übereinstimmung: Als aktuelles Argument ist ein arithmetischer Ausdruck zugelas- 
sen. Bild 12.3 zeigt Ihnen, welche mathematischen Funktionen vorhanden sind. Dazu ei- 
nige Bemerkungen. 
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Mathematische 
ASI 


lal ABS (A) Betrag 

arctan & ATN (A) Arcustangens 

cos« COS (A) Cosinus 

e? EXP (A) Exponentialfunktion 
[a] INT (A) Größte ganze Zahl < a 
Ina LOG (A) Natürlicher Logarithmus 


RND (A) Gleichverteilte Zufallszahl 
e(0,1) 

SGN (A) Signumfunktion 

SIN (A) Sinus 

SOR (A) Quadratwurzel 

TAN (A) Tangens 


Als A ist ein arithmetischer Ausdruck erlaubt. 





Bild 12.3 Mathematische Standardfunktionen 


LOG erfordert ein positives Argument, während das von SOR nicht negativ sein darf. 


Das Argument von SIN, COS und TAN wird als Winkel im Bogenmaß interpretiert. Das Er- 
gebnis von ATN ist ebenfalls ein Winkel im Bogenmaß und zwar aus dem Intervall (-/2, 
n/2). Der Zusammenhang zwischen einem Winkel im Bogenmaß WB und dem entsprechen- 
den Winkel im Gradmaß WG ist durch folgende Gleichung gegeben: 


WB _ WG 
Lu 180 
SGN kann 3 Werte annehmen: 
-1,fals A<® 
SGN (A) = d,fals A=9 
1,fals A>d® 


Mit RND wird ein Zufallszahlengenerator aufgerufen, der über das Argument beeinflußt 
werden kann. Hierfür empfiehlt sich die Variable TI, weil deren Wert ständig verändert 
wird. 
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12.4 Aufgaben 
12-1 Aus .n Werten x\,X2, ... , Xn erhält man den Mittelwert x und die Varianz v durch 


n 
x)’ 





Schreiben Sie ein Programm zur Berechnung von Mittelwert und Varianz so, daß 
beide auftretenden Summen in einem Unterprogramm berechnet werden. 


12-2 Zwischen sinx, cosx und tan x bestehen u.a. die Beziehungen 


V1- (cosx)? 
tan x = —, tan YZleosx) 
v1-(sinx) c05 X 
Diese lassen sich nutzen, um mit der Funktion ATN z.B. für sin x die Umkehrfunk- 
tion arcsin x zu gewinnen, d.h. eine Funktion, die bei Vorgabe des Sinuswertes (et- 


wa auf dem Platz SX) den zugehörigen Winkel im Bogenmaß berechnet. Schreiben 
Sie je ein Funktionsunterprogramm für arcsin x und arccos x. 


81 


13 Textverarbeitung 


Bislang haben wir Zeichenketten als nahezu unveränderliche Elemente betrachtet. Wenn 
wir den Wert einer Stringvariablen ändern wollten, geschah das immer von außen, immer 
durch eine Eingabeanweisung. Das geht auch anders, wie die folgenden Übungen zeigen. 


a) Schreiben Sie 
?:? CHR$ (77); CHR$ (85); CHR$ (84) 


Beherzigen Sie das Ergebnis und fahren Sie fort. 


b) Schreiben Sie 


10 Ad=” “ 
28 FOR K = 1T07 

30 ASß= Aß + CHR$(64 + K) 
AD NEXT 

50 ?AS 

RUN 


c) Jetzt wollen wir uns ansehen, was aus einem Nabel werden kann. 


10 AZ8 = "NABEL“ 
20 HS= LEFTS(AZS, 2) 
30 AZ$ = RIGHTS(H8, 1) + LEFTS(H$, 1) + AZS 
AD AZ8 = AZ8 + RIGHTS (AZ$, 1) + LEFTS(AZS, 1) 
50 ?:?AZ$ 
RUN 
Versuchen Sie kurz, die Entstehung des Namens nachzuvollziehen. 


13.1 Zeichendarstellung 


Ihr com-Rechner arbeitet intern rein numerisch. Wenn er trotzdem in der Lage ist, Zeichen 
und Worte zu speichern und damit zu hantieren, dann nur deshalb, weil jedem zulässigen 
Zeichen ein Zahlenwert zugeordnet worden ist. Wenn Sie beispielsweise die Buchstaben 
ABC eintippen, speichert der Rechner dafür 65, 66 und 67 und merkt sich, daß der Inhalt 
der fraglichen Speicherstellen einen String darstellt. Lassen Sie diesen Inhalt später auf dem 
Bildschirm zeigen, wird die Zahlenfolge automatisch in die entsprechenden Zeichen umge- 
wandelt: Sie sehen wieder ABC. Dieser Umwandlung liegt der ASCII zugrunde (American 
Standard Code for Information Interchange). 
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Mit 2 Funktionen können Sie die ASCII-Codeumwandlung direkt veranlassen: 


ASC(A$) liefert die Zahl, die dem ersten Zeichen des Strings A$ entspricht. 
CHR$ (N) liefert für eine Zahl N zwischen ® und 127 das entsprechende ASCII- 


Zeichen. 

Beispiele: 
?ASC(’IA“) zeigt auf acın Bildschirm den Code der Ziffer 1, und das ist 49. 
?CHR$ (81) zeigt auf dem Bildschirm ein Q. o 


13.2 Zahlenumwandlung 


In Berechnungen mit gewöhnlichen Variablen arbeitet Ihr Rechner intern mit seiner Stan- 
dard-Zahlendarstellung. Veranlassen Sie ihn, auf dem Bildschirm eine Zahl auszugeben, 
wandelt er die interne Form in eine Zeichenfolge um und zeigt diese an. Dabei können 
neben den Ziffern, dem Buchstaben E und dem Punkt noch das Plus- und Minuszeichen 
sowie Leerstellen auftreten. Mit Hilfe einer Funktion kann die gleiche Umwandlung einer 
Zahl in einen String auch im Programm durchgeführt werden 


| STR$(A) wandelt den Wert des arithmetischen Ausdrucks A in einen String um. 
Beispiel: 
Nach A$ =STR$ (4x ATN(1)) steht auf A$ der 11-stellige String ” 3.14159265‘. © 


Entsprechend wird verfahren, wenn die STR$-Funktion mit einem Integer-Argument auf- 
gerufen wird, nur ist dabei der Zahlbereich deutlich kleiner. 


Zu STR$ existiert auch eine Umkehrfunktion: 
VAL (S$) wandelt den Anfang des Strings S$ in eine Zahl um, soweit er umwandel- 
bar ist. 
Beginnt der String mit einem in Zahlen unzulässigen Zeichen, wird der Wert ® ge- 
liefert. 
Beispiel: 
VAL (”17/2“) hat den Wert 17. © 
Zulässig sind höchstens die im ersten Absatz dieses Abschnitts aufgeführten Zeichen. Als 
Basis für die Umwandlung wird eine Folge zulässiger Zeichen aber nur soweit genutzt, wie 


sie als Zahldarstellung sinnvoll ist. So wird der String z.B. spätestens vom zweiten E ab 
ignoriert. 


13.3 Stringverarbeitung 


Neben den bisher erörterten Umwandlungen von Zahlen in Strings und umgekehrt gestat- 
tet com-BASIC auch die Stringverarbeitung in einem mehr wörtlichen Sinn. Man kann 
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Strings zu einem gemeinsamen String vereinigen oder einen beliebigen zusammenhängen- 
den Teil eines Strings (als Kopie) herausgreifen. 


A$® + B$ bildet einen String, der in dieser Reihenfolge die Zeichen des Strings A$ 
und die aus B$ enthält. 


Beispiel: 


Mit G$ ="GERECHT‘:M$ ="MUND“:S$ = M$ + G$ ergibt sich auf S$ der String 
”MUNDGERECHT“, 


Wenn wir hier das gewöhnliche Additionssymbol wiederfinden, heißt das natürlich keines- 
falls, daß eine Zahl zu einem String addiert werden könnte. Ebenso unsinnig wäre, Strings 
mit einem der anderen arithmetischen Operatoren zu verknüpfen. 

Um einen Teil aus einem String herauszugreifen, muß man angeben, wieviel Zeichen über- 
tragen werden sollen und wo diese Zeichengruppe im Ausgangsstring liegt. Drei Funktio- 
nen stehen zur Verfügung: 


LEFT$(S$, N) liefert die ersten N Zeichen des Strings S$. 

MID$ (S$, M, N) liefert die beim M-ten Zeichen beginnende Gruppe von N Zeichen 
aus dem String S$. 

RIGHT$(S$, N) liefert die letzten N Zeichen des Strings S$. 

N ist eine Zahl zwischen ® und 255, M zwischen 1 und 255. 


Beispiele: 


Mit AZ$ = "ANNABELLA“ erhält man 

»ANNA“ durch LEFT$(AZ$, 4) 

"NABEL“ durch MID$(AZ$, 3, 5) und 

"ELLA“ durch RIGHT$(AZ$, 4) ® 


Die Positionierung des herauszulösenden Teilstrings erfolgt stets in der eben erklärten Form. 
Falls dann nicht mehr N Zeichen verfügbar sind, wird der Ergebnisstring entsprechend ver- 
kürzt. Diese Situation kann vom Programm erkannt werden; denn es existiert eine Funk- 
tion, die die Anzahl der Zeichen eines Strings ermittelt. 


| LEN (S$) liefert die Länge des Strings S$ 


ASC (S$) Beispiel: 

CHR$ (N) Mit dem obigen AZ$ trägt LEN (AZ$) den Wert 9. 
LEFT$(S$,N) ° 
LEN (S$) 

MID$(S$,M, N) Eine Zusammenstellung der zur Textverarbeitung 
RIGHT$ (S$,N) verfügbaren Funktionen zeigt Bild 13.1. 


STR$(A) 

VAL (S$) 
S$ ist ein String 
M liegt zwischen 1 und 255 
N liegt zwischen ® und 255 Stringfunktionen 


Bild 13.1 
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13.4 Aufgaben 


13-1 Eine Zahl wird auf dem Bildschirm in halblogarithmischer Form ausgegeben, wenn 
Ihr Betrag gewisse Grenzen unter- bzw. überschreitet. Wie können Sie ohne Benut- 
zung dieser Grenzen erreichen, daß dann in der Mantisse stets genau 3 Stellen hinter 
dem Dezimalpunkt stehen? 


13-2 Schreiben Sie ein Programm, das einen String liest und die darin enthaltenen ver- 
schiedenen Zeichen je einmal auf dem Bildschirm ausgibt. Die Zeichen sollen fort- 
laufend nebeneinander stehen. 


13-3 Ändern Sie das Programm für Aufgabe 13-2 so ab, daß die Zeichen aufsteigend sor- 
tiert ausgegeben werden. 
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14 Demonstrationsbeispiele 


Wie in den vorangegangenen Kapiteln wird auch hier in erster Linie das Ziel verfolgt, den 
Leser zur Entwicklung eigener Programme zu befähigen. Im Vordergrund steht der De- 
monstrationswert und nicht die vielseitige Verwendbarkeit der Programme. Dennoch wur- 
den diese so aufbereitet, daß sie unmittelbar benutzt werden können. 


Bei der Auswahl der Beispiele wurde darauf geachtet, daß Problem und Lösungsweg auch 
ohne viel Fachwissen aus dem jeweiligen Anwendungsgebiet verstanden werden können. 
Daher sollten Sie nach Möglichkeit alle Beispiele durcharbeiten und sich nicht auf Ihr 
Fachgebiet beschränken. 


14.1 Lineare Interpolation 


Problem: In einem (X, Y)-Koordinatensystem sollen N Punkte (X;, Y;), 1Si<s N gege- 
ben sein mit aufsteigenden X-Werten. Benachbarte Punkte sollen durch eine Strecke ver- 
bunden und die Randstrecken als Halbgeraden herausgezogen werden (s. Bild 14.1). Aus 
diesem Linienzug ist für beliebige Argumente X der zugehörige Funktionswert zu ermit- 
teln. 

Dieses Problem stellt sich z.B., wenn mit tabellierten Funktionen gearbeitet wird. Auch 
für die Auswertung von Meßreihen ist die lineare Interpolation oft ausreichend. Dagegen 
darf die verabredete Extrapolation in Form der Halbgeraden in Anwendungsfällen nur be- 
nutzt werden, wenn die durch den Linienzug angenäherte Funktion tatsächlich ein ent- 
sprechendes asymptotisches Verhalten zeigt. 

Programme sind selten auf Anhieb fehlerfrei. Vielmehr decken systematische Programm- 
tests gewöhnlich nach und nach die Lücken auf. Im Laufe der Zeit entsteht eine Ahnen- 
kette von Programmen, die immer leistungsfähiger werden (sollten). Wir wollen an diesem 
Beispiel zeigen, wie die verschiedenen Entwicklungsstufen aussehen könnten. 


Lösungsweg: Zuerst werden die N Punkte eingegeben und danach in einer unendlichen 

Schleife immer abwechselnd ein Argument X gelesen, das zugehörige Y berechnet und X 
und Y ausgegeben. Um Y berechnen zu können, müssen wir im Regelfall den Index K be- 
stimmen, für den X(K)>X, aber X(K - 1) <X ist. Aus der 2-Punkt-Form der Geraden- 


gleichung erhalten wir dann 
XTXK-1 
YEGKKYK-ı NK YK-ı N IX 
KAÄK-1 


Bild 14.1, Version a, zeigt einen ersten Entwurf für einen entsprechenden Ablaufplan. 
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X(N-2) X(N-1) XN) X 


Eingabe: 
x 
Ausgabe: 
X,Y 


Bild 14.1 Prinzipskizze und Ablaufpläne für die lineare Interpolation 












_ _| s.Abschnitt 
14.1 


__|8 Abschnitt 
14.1 


Ausgabe: 
X,Y 
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Bei der Ausführung des Programms wird in der Regel auf dem Ja-Ast aus der Schleife her- 
ausgesprungen. Der BASIC-Interpreter stößt dann beim nächsten Durchgang wieder auf 
den Schleifenanfang, ohne zuvor die alte Schleife geschlossen zu haben. Das ist zwar nicht 
grundsätzlich störend, kann aber mit dem in Bild 14.1, Version b, gezeigten Ablauf leicht 
vermieden werden. 

Der Ablaufplan, Version b, erfüllt die eingangs gestellten Forderungen noch nicht ganz. 
Versuchen Sie, die verbliebenen Schwachstellen bzw. die Fehler selbständig herauszufin- 
den. Ohne bei der weiter unten angegebenen Lösung nachzusehen, sollten Sie den Plan b 
in ein BASIC-Programm übertragen und dieses mit einfachen Testdaten überprüfen. Dabei 
werden sich fast immer die richtigen Werte ergeben, falls Sie bei der Codierung keine Feh- 
ler begangen haben. 


Ihr Test sollte als Ergebnis bringen, daß im angegebenen Ablaufplan die FälleX<s X(1) 
und X>X.(N) falsch behandelt werden. Gilt X < X (1), wird in der Interpolationsformel 
mit den Indizes ® und 1 gearbeitet, beabsichtigt waren aber 1 und 2. Für X >X(N) wird 
die Formel gar nicht erreicht, so daß der alte Y-Wert noch einmal erscheint. Gefordert war 
hingegen die Berechnung mittels der Indexwerte N-1 undN. 


Nun gilt es, mit möglichst wenig Aufwand die erkannten Fehler zu beseitigen. Da für 

X <X(1) und X zwischen X (1) und X (2) beide Male mit dem Indexpaar 1 und 2 gerech- 
net werden soll, erübrigt sich der Vergleich von X mit X (1). Daher lassen wir die Schleife 
erst mit K = 2 beginnen. Entsprechend müssen wir verhindern, daß der Vergleich von X 
mit X(N) Konsequenzen hat, was durch die Erweiterung der Abfrage auf „X(K) < X und 
K< N“ gelingt. Diese Bedingung ist für K = N nicht erfüllt, so daß in diesem Fall 

(X(N - 1) < X) mit den Indexwerten N - 1 und N interpoliert wird. Schließlich sollten 
unsinnige Werte vonN, d.h. N < 2, zurückgewiesen werden. Wenn Sie Ihr Programm ent- 
sprechend abändern, müßte es weitgehend mit der Lösung aus Bild 14.2 übereinstimmen. 


FEAIT. 


if REM *## LINERFE INTERFÜLATIOH 88% 

eu FEM FUHKTWEISE GEGEFENER FUHETIÖONEN 

En REM 

2) Bit FUNKTION EINGEFEN 

INPUT "ANZAHL" ;N u 

IF N<# THEH FRINT "ZU KLEIN" GOTO1EO 

DIM KÄND. CN) un, 

FFINHT "PUNKTE EINGEBEN. % MACHSEND" 

FÜR K=1 TO H 

INPUT". T"SMCK>. CH} 

IF K=1 OR KCKD>SSK-15 THEN 186 u 

FREINT "S-WERT ZU KLEIN. REGELEHNT" EK=k-1 

NEXT i 

FEM ARGUMENT EINGEBEN. FU. -WERT FERECHNEN 

218 INPUT "ARGUMENT ER 

228 FÜR K=2 

238 IF KCKDCK AND K<N THENZER ss Bild 14.2 
240 VareE-13H PCKI Tr SS-ECK-ISDFLSCKITACE- 122 m 
558 Ver ELIROPERITTERTII RESTE Programm für lineare 
2£8 NE=T Interpolation 

270 PRINT "3=":8, "=": 

>30 GOTO 218 


az Nr Du! 1) = I) m 


.ı- ee SE 
ag IN I 
[ax 
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14.2 Arcustangens 


Problem: Für einen beliebigen Punkt P der (X, Y)-Ebene ist der Winkel zwischen der Strek- 
ke von P zum Ursprung und der positiven X-Achse zu ermitteln. P soll durch seine Koor- 
dinaten, X und Y, gegeben sein. 


Möglicherweise erinnern Sie sich an die Funktion ATN, die ja zu einem bekannten Tan- 
genswert den zugehörigen Winkel im Bogenmaß liefert. Mit dem Aufruf ATN (Y/X) scheint 
unser Problem gelöst. Da aber die Quotienten (- Y)/(- X) und Y/X den gleichen Wert ha- 
ben, liefert die ATN-Funktion für den Punkt (X, Y) den gleichen Winkel wie z.B. für den 
Punkt (- X, - Y), während sich in Wirklichkeit die beiden Richtungen um den Winkel r 
unterscheiden. 


Die Lösung soll als Unterprogramm formuliert werden, damit sie unmittelbar in anderen 
Programmen verwendet werden kann. 


Lösungsweg: Das Unterprogramm ist nur in Verbindung mit einem Hauptprogramm 
(MAIN) ausführbar. Deshalb müssen wir dieses zusätzlich erstellen und dort alles erledigen, 
was über den geforderten Leistungsumfang des Unterprogramms hinausgeht. Dazu zählt in 
erster Linie der Datenaustausch mit dem Benutzer. Daneben lassen wir die Ergebnisse noch 
von Bogen- in Gradmaß umrechnen, was manchem die Ergebniskontrolle erleichtern wird. 
Nun zum Unterprogramm. Als Eingänge verwenden wir die Variablen X und Y, das Ergeb- 
nis steht auf A. Dem unsinnigen Fall X = Y = ® schenken wir keine Beachtung, so daß drei 
Fälle zu behandeln sind. Das soll so geschehen, daß die Ergebnisse in das Intervall (- m, ] 
fallen. Dabei ist übliche Konvention, positive Winkel entgegen dem Uhrzeigersinn und ne- 
gative im Uhrzeigersinn aufzutragen. 

X=#09 und Y#$. Bei positivem X liefert ATN den richtigen Wert, während bei negati- 
vem X um 7 korrigiert werden muß. Um das obige Intervall zu treffen, koppeln wir diese 
Korrektur an das Vorzeichen von Y. 


Y=6. Je nach Vorzeichen von X muß sich als Ergebnis ® oder ergeben, was mit Hilfe 
der SGN-Funktion einfach codiert werden kann. 


X =. Je nach Vorzeichen von Y muß sich z/2 oder - n/2 ergeben, was wiederum mit 
Hilfe der SGN-Funktion codiert wird. 


Bild 14.3 zeigt u.a. das entsprechende Unterprogramm, das in allen Anwendungen benutzt 
werden sollte, in denen zwischen einer Richtung und der Gegenrichtung unterschieden wer- 
den muß. 


14.3 Integralberechnung nach Romberg 
b 
Problem: Das bestimmte Integral | = | f(x)dx soll numerisch berechnet werden. Da I als 


a 
Flächeninhalt interpretiert werden kann, lassen sich zur Berechnung des Integrals Verfah- 
ren verwenden, mit denen ein solcher Inhalt näherungsweise bestimmt wird. 
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2 
DR) 


FEM TEST-MAIN F, ARCTAH 

INPUT, ig 
GOSUE 1000 
FRIHT "WINKEL IN GRAD" ARLSOR 
GOTO 110 

FI=4$ATHÜ1O REM #8 UF ARCTAN #6 

REM EIN Sr. AUS CASARCTANGSD,A LIEGT IH «-0.#] 
IF 4=9 THEN A=Z6HKT#RL2 GOTOLOEE 

IF 7=9 THEN A=l1-3GHlN SEI GOTOIGER 
A=ATHÄHSS 

IF 20 THEN AsA+SchHe#er 

RETURN 


u ee 
a EUR RN 


Ei Lga  felee 170 
Zu! 
ni 


In Bu Sr ı BE SE IE DE En Te 
a 


ER 
ehe 


EN 

WE 
pn 

je 


rg, 
IN Eu u Eu) 


a 


oe) 
E 
BC BE ROT BET 
LE cr DE NO BE a BE 


m ee ne fe he han un en en 
— 
Cr 1, 


Er 


y 
f(x) 
YK 
a=%o Xı % ..o Xn-2 Xn-ı Xn=b X XK-ı XK 


Bild 14.4 Sehnentrapezverfahren zur Integralberechnung 


Beim Sehnentrapezverfahren wird das Intervall in n Streifen zerlegt und die Funktion f(x) 
auf jedem Streifen durch eine Sehne ersetzt, die durch die Ordinaten an den Intervallenden 
läuft (s. Bild 14.4). Aus programmtechnischen Gründen verwendet man Streifen gleicher 
Breite h = (b - a)/n und erhält als Näherungswert S für das Integral 


n-—-1l 
Sn ne, »2 f(a+ n)) 


i=1 


Aus Sn und Sny2 läßt sich nach einer Idee von Romberg (Fehlerbetrachtung mittels Taylor- 
reihen) die bessere Näherung 


„ca, „ np =Sn 
h/2 3 


gewinnen. Nach weiterer Verfeinerung kann man auch diese Verbesserungen weiter ver- 
vollkommnen. Für die nächste Stufe gilt 
(1) _R(l) 
20) „ Rays Ray 
h/4 15 
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Bild 14.5 b) Start 
Ablaufplan zur Integralberechnung (Start) 
nach Romberg 














H=(B-A)/N 
X=A+H 
HH =H 


a) 


HH = 2*HH 
NN =N/2 








Funktions- 
wertsumme 
aktualisieren 


S=S+F(x) 


S=S+F(X) 
X=X+HH _ 


X=X + HH 








RF=RF*4 





RF= RF*4 


1 RE*SS-RU) Romberg- RF*SS- R(J) 
RF-1 --| verbesserungen TS -T 

R(J) = SS berechnen RU) = SS 

ss=-T 


s5s=T 
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Wir wollen das Programm so aufbauen, daß der Benutzer jeweils entscheidet, ob ein wei- 
terer Durchlauf erfolgen soll. 


Lösungsweg: Die zu integrierende Funktion — hier 1 + sinx — schreiben wir als Funktions- 
unterprogramm und sprechen die Funktion dann nur über ihren Namen an. Dadurch wird 
das mathematische Verfahren klar von der zu behandelnden Funktion abgegrenzt, so daß 
die Umstellung des Programms auf eine andere Funktion praktisch kein Risiko bedeutet. 
Die Grenzen a und b sowie die Streifenzahl n für den ersten Durchlauf lesen wir ein. 


Im Berechnungsteil sollten wir beachten, daß nach einer Verfeinerung der Teilung durch 
die Halbierung der Streifenbreite (bzw. Verdoppelung der Streifenzahl) in der Funktions- 
wertsumme der Sehnentrapezformel alle alten Argumente wieder auftreten: Hinzu kom- 
men die Mitten der bisherigen Streifen. Daher beschränken wir den Funktionsaufruf je- 
weils auf die neuen Argumente. 


Der erste Durchgang stellt also einen Sonderfall dar. Deshalb ignorieren wir ihn vorerst und 
stellen uns auf den Standpunkt, es seien schon K Durchgänge erfolgt (K > 1). Die Funk- 
tionswertsumme nach dem letzten Durchgang soll auf S stehen, die letzte Sehnentrapez- 
näherung auf R(1) und die Rombergverbesserungen auf R (2), ... R(K). Verstehen wir un- 
ter N die Streifenzahl für den aktuellen Durchgang, erhalten wir den in Bild 14.5, Version a 
dargestellten Ablaufplanentwurf. 


’ 


FERI'. 
if FEM ### INTEGFALEPERECHNUNG HACH FÜMFERG ##%* 
zu FEM 
aa DEFFHFESD=1+HSINGSD "REM INDIVIDUELL SETZEN 
4a FEM 


12 FEIHT "IGRENHZEN A UND E EIMGEREN" 

11 INFUT"A.E "IA.E 

126 INPUT"ERSTE STREIFENANERHL "NH 

isa IF Hl THENIEE 

146 K=f :HN=N-1 °5=XFHFERDHFHFEBSOHE.S 

150 H=lE-ANH S=A+H HH=H IF Eb>E THEHHH=ZFHH HN=N"E 


kei 

ie IF HHL THENZOR 

17& FÜR I=1 TO HN 

1548 S=S+FHFis) :8=ntHH 

1220 NEST 

za 35=58H 

ia FFINT FRIHT "SEHNENTEAFEE-HERT=": 
zea IF K=ia THENSEE 

za REF=1 

24a Für I=1 TO 

zsa FRINT 53 

zEi RF=SRF$4 : T=siEF$S2S5-Ri TI RF-12 
za Ri T)=35 '55=T 

230 FRINT "RÜMBERGE". Ti" S-WERT=": 

zaa NEST 

a4 EK=K+l "FÜE:=35 

=12a FEINT 55 "FRIHNT 

>24 INPLUT"WERFEINERM? IAFUER ZEICHEN 1 EINGEBEN ": TE 


322 IF LEFTFLITE.1:"T" THEN EHI 
2342 N=2#H 

== IF K=1M THEH E=E-1 

„68 eroise 


Bild 14.6 Integralberechnung nach Romberg 
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Jetzt sehen wir uns an, wo dieser Entwurf für den ersten Durchgang modifiziert werden 
muß. Wir überspringen die Berechnung der Rombergverbesserungen. Für die Berechnung 
der Funktionswertsumme müssen wir NN und HH so setzen, daß alle zwischen A und B 
liegenden Teilungspunkte erfaßt werden. Schließlich müssen noch die Eingabe von A, B 
und N ergänzt und Startwerte für K und S gesetzt werden. Damit ergibt sich der Plan aus 
Bild 14.5, Version b. Die Codierung dieses Plans finden Sie in Bild 14.6, wobei die Ein- 
und Ausgabe noch benutzerfreundlich aufbereitet wurde. 


14.4 Gemeinsamer Geburtstag 


Problem: In einer Menge von 367 Personen befinden sich mit Sicherheit zwei, die ihren 
Geburtstag am selben Tag feiern. Wenn Sie nun zufällig zusammengesetzte Personengrup- 
pen nach Geburtsmonat und -tag befragen, finden Sie ein Paar, das gemeinsam feiern könn- 
te, oft schon nach relativ wenigen Interviews. Dieses statistische Phänomen ’wird hier in 
der Form eines Ein-Personen-Spiels vorgestellt. 


Lösungsweg: Die Befragung wird mit Hilfe des Zufallszahlengenerators simuliert. Er liefert 
zuerst eine Zahl aus dem Intervall [1, 12], die als Monat angesehen wird. In Abhängigkeit 
davon wird das Intervall für die Tage festgelegt, also [1, 29], [1, 30] oder [1, 31] und dar- 
aus eine Zufallszahl ermittelt. Falls dieses Zahlenpaar schon einmal vorkam, wird die Be- 
fragung beendet, andernfalls wird es gespeichert und der nächste Geburtstag erfragt. 


Zu Ihrer Information werden alle Befragungsergebnisse angezeigt. Zuvor werden die Zah- 
len in einem Unterprogramm in Strings mit 2 Zeichen umgewandelt. Dadurch läßt sich 
auch mit dem Semikolon als Listentrennzeichen die Ausgabe spaltentreu aufbauen. Das 
Programm zeigt Ihnen Bild 14.7. 

Die Erklärung für die meist erstaunlich kleine Zahl zu befragender Personen setzt Kennt- 
nisse in Wahrscheinlichkeitsrechnung voraus. Wir wollen hier nicht darauf eingehen und 
verweisen den interessierten Leser auf die entsprechende Fachliteratur. 


14.5 Wurf auf ein Tor 


Problem: In einer Halle soll ein (punktförmiger) Ball in einem Bogen direkt in ein Tor ge- 
worfen werden. Die Breite des Tores bleibt außer Betracht. Auch die Luftreibung wird 
vernachlässigt. 

Das Programm ist als 1-Personen-Spiel formuliert, mit dem Sie Ihr Gespür für die Bewe- 
gung im Schwerkraftfeld der Erde prüfen können. Sie müssen einzelne der 6 Parameter 
variieren, bis das Tor erzielt ist. 


Das Programm ist so geschrieben, daß Sie bei jedem Durchlauf beliebige der alten Parame- 
ter übernehmen können und nur eingeben müssen, was Sie ändern wollen. Derartige For- 
derungen treten in vielen Anwendungsproblemen auf, so daß Sie sich die Programmierung 
des Eingabedialogs ansehen sollten. 
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Murau en TI 


10 REM ##%* GEMEINSAMER GEFURTSTAG 3% 

za FEM 

sa DATA31.23.31:.20.21.20. 31.21.20. 21.20. 21 | 

Ei DIM Tocl2>.Miocen. Teen 

"a FOR EK=1 TO 12 RERAD Tock> NEST 

a FFINT"TIERk GEMEINSAMER GEEURTSTAG ##%#" :FRIHTOFEINT 
A FEINT"ZUFARELLIG AUSGEHREHLTE FERSÜHEN SOLLEN" 

4 FREIHT"NACH IHREM GEEURTSTAG TAG. MOHRT> BE=" 

a FRINT"FERGT HERDEN. EIS EIN FARR MIT GLEICHEM" 

a FREINT"GEEURTSTAG GEFUNDEN WIEI. " 

a PEIHT"SCHRETEEN SIE DIE ERFÜRDERLICHE ANZAHL." 

A FRINT:PRINT"DER FECHHER SIMULIERT DIE FEFRAGUHG UHI 
E1 

Hi 

1 


ww 
OU 


FRIHT"BERFECHHET DIE GUETE IHRES SCHRETEWERTES." FREIHT 
IHMFUT"MIEYIEL FERSÜHEN MIFDT ER FEAGEN" SW 
a IF “zZ THENZEE 

an ARINTÜZUHFRAGESERGERN ISO FRINT 

a H=i 

244 M=1+IHTL1ZSENDETIN) 

2a T=1+INTETGOMPFRNDETITEN 

a2 H=T GozuBeaa "FRIHT HE:".". 

E56 H=M'GOosufeca ’FRINT HF.". ". 

zEa IF N=a THENZOS 

ya FÜR K=1 TOM 

z2a IF M=MiE> ANDT=TCE: THENYOR 

234 NEH=T 

aa H=N+1 

21a MEN>=M 

220 TEN>=T 

2234 GOTOZ44 

34a H=H+1 

41a FEINT:FEINT:FREIHT"HR"SH: "UND HE".E 

424 FREINT"HÄBEN GEMEINSAM GEELRETSTAG. " 

432 FEINT"SIE HATTEH" WS: "FERSÖNEN YÜRGEGEEEHN" 
444 IF Y=HNTHENSAG 

452 “H=REZEW-ND FEINT"FEHLER  "SWH. "FPERSZÖHEN BEH. ": 
4629 FREINT INTERN W+HND SS" E" 

a GOTOSIE 

44 FREINT"IHRE “ÜRHERSÄAGE MAR AL=Ü RICHTIG" 
a FEIHT 

za INFUT"GEREH SIE E COER WM EIN. «ENDE EZH WEITER>":HE# 
„2@ IF H&="M" THENIAG 

4a IF H&="E" THEH ENI 

og GOTISEA 

Sa INFUT" 

EEE HE=STREFÜH) 

eilt HI=LENCHF5-1 


ZI IJ)MIN iu für 


Talaflafuee ma nen pa a a a 
mal 


Lu ri. ie 


BEE HE=SRIGHTEÜHF. HI: 
E20 IFHLZZTHENHF=" "+H$ 
E40 FETLFH 
"aa END 
FEAT. 


Bild 14.7 Gemeinsamer Geburtstag 
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Lösungsweg: Eine Prinzipskizze finden Sie in Bild 14.8. Aus dem Abwurfwinkel A und 
der Abwurfgeschwindigkeit V erhält man die Geschwindigkeitskomponenten in x- und 
y-Richtung: 


V„=Vcos(A), V„=V sin(A) 


Mit der Erdbeschleunigung g und der Zeit t als Parameter gelten die Bewegungsgesetze 


2 


gt 
x=-Vkt, y-HA+ VE 


bzw. nach Entfernung von t 


v g 
=HA+ IX -— x? 
y Ve... 2V2 


Das ist eine nach unten geöffnete Parabel, deren Scheitelpunkt bei 


VxV v2 
XM=——, YM=HA + 
8 28 


liegt. Der Funktionswert beix =L ist 


V 
YL=HA+—ZL-—,L? 
Vv. 2v2 





Die Stelle eines eventuellen Kontaktes mit dem Hallendach erhalten wir aus der kleineren 
Lösung von y=HHals 


V. 
xD=—(v, - WE =2g(HH HA). 








Bild 14.8 Wurf, Prinzipskizze 
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Bei der größeren Lösung von Y = ® trifft der Ball auf den Boden: 


V 
XB -—(v, +2 + 2gHA) 


In Bild 14.9, Teil a, finden Sie einen groben Ablaufplan für das Torwurfprogramm. Im 
Eingabeteil soll der Benutzer jeweils gefragt werden, ob er einen Parameter übernehmen 
oder einen neuen Wert eingeben will. Im ersten Fall soll er ein nichtnumerisches Zeichen 
und sonst sofort den Wert eingeben. 


b) ( Start: LESEN 







Eingabe und Kontrolle von K=% 
HH, L,HT,HA,V,A 
Eingabe: 
Anzahl N der Durchläufe Q0$ 





zählen. Nach Umwandlung 

auf Meter und Bogenmaß 
Berechnung von 
VX,VY,XM,YM,YL,XD,XB 







u String ggf. in 
Q=VAL(QY F- ie umwandel 


ja 


Return 


- [Keine zan 
eingegeben 








Bild 14.9 


Grober Ablaufplan für das 
Torwurfproblem 


Ausgabe einer von K 
abhängigen Meldung 
und des Wertes von H 
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Da vom Programm nicht vorhersehbar ist, ob eine Zahl kommt, wird auf eine Stringva- 
riable gelesen und in einem Unterprogramm analysiert, ob eine Zahl (erstes Zeichen eine 
Ziffer, Plus, Minus oder Punkt) oder sonstige Zeichen eingegeben wurden. Den Ablauf- 
plan für dieses Unterprogramm zeigt Bild 14.9, Teil b. 


Im Programm, Bild 14.10, ist als Schutz gegen eine Division durch ® für V der Startwert 1 
aufgenommen. Außerdem werden folgende Bedingungen abgeprüft: 


0 <HH 
SL 
 <HTSHH 
 SHASHH 
<V 
-99d <A<M falls d <HA 
bzw. sA<9D falls d = HA 


14.6 Einfache Stücklistenauflösung 


Problem: In vielen Bereichen unseres Wirtschaftslebens werden Stücklisten benötigt. Soll 
beispielsweise geprüft werden, ob der Lagerbestand an Einzelteilen ausreicht zur Fertigung 
verschiedener Baugruppen mit individueller Stückzahl, müssen die Stücklisten der fragli- 
chen Baugruppen aufgelöst werden. In der Stückliste einer Baugruppe steht, aus welchen 
Bauteilen die Gruppe unmittelbar zusammengesetzt ist. Ein Bauteil kann Einzelteil oder 
wieder Baugruppe sein. Für diese Baugruppe wäre dann ihre Stückliste heranzuziehen, 
falls diese erneut Baugruppen ausweist, auch noch deren Stücklisten usw., bis in der ge- 
samten Auflösung nur noch Einzelteile auftreten. 


Stücklisten sehen im Prinzip wie folgt aus: 


Gruppe H enthält Teil D Imal 
Gruppe K enthält TeilH 3mal und Teil P 4mal 
Gruppe P enthält TeilH 6mal und Teil V 3mal 


Normalerweise werden diese Daten in einer separaten Datei gespeichert. Um hier den Auf- 
wand zu begrenzen, verzichten wir auf diese Datei und benutzen dafür DATA-Anweisun- 
gen. 


Mit zunehmender Größe eines Programms ist bei dessen Formulierung auch auf eine klare 
Struktur zu achten. Hierarchisch angeordnete Unterprogramme, wie sie hier verwendet 
werden, sind ein Weg zur Erhöhung der Transparenz. 


Lösungsweg: Zunächst legen wir die Struktur der Stücklisten-,,‚Datei‘‘ fest. Jeder Satz soll 

3 Angaben enthalten: Name der Baugruppe; Name eines darin enthaltenen Bauteils; An- 
zahl, wie oft dieses Bauteil auftritt. Die Sätze müssen nach dem Gruppennamen aufstei- 
gend sortiert sein. Das Dateiende wird durch einen Satz markiert, dessen Gruppen- und 
Teilname jeweils das Fragezeichen sind. Diese Markierung wurde gewählt, weil bei ‚echten‘ 
Sätzen Gruppen- und Teilname von der Sache her nicht gleich sein können und weil das 
erste Zeichen (Buchstabe oder Ziffer) jedes ‚‚echten‘‘ Namens bei der angesprochenen Sor- 
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"ERDT, 


ia FEM ws WURF AUF EIH TOR IH EIHER HALLE #+%# 

u G=3,51 FI=SJ4#ATHGL 

a TEieb=e"Tooogl" TEL S="ZDU KURZIr OO Tpigbe"tii MEITIF OO TED et HOCH!" 
sa UEie="IM "oO MEIDEN", Y“ERZUER" 

=1 Ei ="EBODENKONTRET HACH" OO NEFÖII="METERH" 

SE UEUZN="HOEHE AM TOR UA" OR Ze "METER 

2 WETI="TDECKENKÖNTAET HACH" Wr ü="METERH" 

a9 FRIHT"IT' 

!öh FEM #&## EINGARBE-TDIALIG. FEUEFUHNHG 24% 

{1& FEINTFEIHT FFRIHT" +++ TORLMUFEF 34%" 

115 FEINT "ZERHHLEN EINGEREHN ODER 7 KEINE KOrRR, ©" 

1-a IF K=b THEN N=ü oO FEM TREHLEF HEUTERALTSTEFEH 

125 IF Yz=E THEH Y=1 

‚2a FFINTFFINT"HALLEHHDEHE IH CHH." OO KGEF,": OO GOSUEDER IF F=1 THEHNGO 
ı=Z IF Sa THEH FEIMT "ZU FLETHT OO GOTI1SE 

iz4 HH=süı IF HHÜHT THEN HT=HH 

125 IF HHIHR THENH HA=HH 

140 FFINT"TOR-AESTRHID LM OLE" FOFRE,".  GOTUEZEOR "IF K=1 THENS0 
id IF GI0 THEN FRIHT "TU FLEIN"  GOToIldo 

144 ef 

174 FFIHT"TOFHÖEHE IM UCHT, "OO MORE," GOoSUEZOG IF k=i THEN desh 
ı1Gz IE CHE THEH FRINT "ZU KLEIN" GOTO1SE 

154 IF Goo-HH THEN FFIHT "ZU GROSSE" GOTO1SE 

156 HT=l 

120 FFTIHT"SEHNLUFFHOEHE IM "HA." KORFF)", GOSUEIAE IF Ue2 THEH IT 
lez IF OXa THEN FEINT "ZU FLEIH" CITIeER 

le4 IF GSHH THEH OFRINT "ZU GFOSE" GOTOLEH 

lee HA=D 

170 FEINT"REM.GESCHH. [EMCHI "Wi" FORR,". SGc=UEZa0 IF rei THEH 120 
irz IF OX=G THEN FFIHT "ZU ELEINH" GOTOLTE 

174 Well 

1549 FFIHT"TBEHMINEEL GRATIS "IA:" KORFF". CGORUEZER IF K=1l THER1SE 
122 IF S=-26 TYEN ERIHT "ZU FLEIM" OGOTOISE 

124 IF HA=f AHI od THEH FEIMT "ZU ELEIM" OGOTINEH 

i25 IF Weg THEH FEINT "ZU GROSSE" OO GOTOLSR 

155 H=l 

134 GOTO2EE 

zug REM #4#+ UF LESEN 34% 

zus Fer INPUT OF O Der ALücH 

ia IF Da THEH EETUFH 

„iS LE=SLEFTEEGE 1% 

zei IF Lf=e"o" OR Lfe"+" IE We" "NR o$F="," THEN FETÜRH 

25 K=1 :!EETUFH 

aa FEM EEE FECHHEN *%% 

MG HeH+1l FEM EREHLT VERSUCHE EI” ZUM EFFÜLo 


_ 
ce 


E=A#Fl’120 WET HÜDECEN 2,8 NTEWEEIMIEN "7,E 
“Ma TL=EHSH NE GELtIEIN 
IF ol=M AND SMIL THEN=3S 
325 IF TLIOHH THENSMO 
==22 GOTOZ35 
225 IF HAHN Den i=HH THENTAS 
a4 Kar He SER "RZ ZRRGEÜHH-HAS TO GOTOIEE 
235 IF "LEHT THEN Kez zY! GOTD2EE 
350 IF FLO THEH Kal Baia Ge + SORT tIH+DEGEHA 5 OO GOTOZED 
720 Keil H=H 
ze& ERIHT OO FRIMT TECHN FFRIHTOOESKSNCHS NEST 
273 GOTO1R08 
=EHTT, 


IE EIUEEE EFT ENE OR) 


rn 


Tan 


Bild 14.10 Torwurf-Programm 
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tierung vor dem Fragezeichen rangiert. Folgende Sätze bilden dann die Datei mit den 3 oben 
genannten Stücklisten: 


Dieses ist nicht die einzig mögliche Reihenfolge. So dürften z.B. die beiden zur Baugrup- 
pe K gehörenden Sätze vertauscht werden. Schließlich sei betont, daß bei einer eventuel- 
len Aufnahme weitere Sätze in jedem Fall der Stücklisten-Charakter erhalten bleiben muß. 
Zyklen wie z.B. Teil A enthält Teil B, Teil B enthält Teil C, Teil C enthält Teil A, sind un- 
sinnig. 

Schon bei der Vorstellung des Problems haben wir dargelegt, daß die Auflösung ein mehr- 
stufiger Prozeß ist. Bei jedem Durchgang können neue Gruppen auftreten, die ihrerseits 
beim nächsten aufgelöst werden. Dieser Prozeß endet aber, wenn die Datei korrekt, d.h. 
zyklenfrei ist. 


Den aktuellen Stand der Auflösung halten wir in 3 Arrays fest, die wir im weiteren als 
„die Tabelle‘‘ bezeichnen: 


AA$® Name des Bauteils 
AM Anzahl, wie oft das Bauteil auftritt 
AK  Statuskennzahl für das Bauteil 


Im Eingabeteil werden Positionen in die Tabelle aufgenommen und als neu gekennzeich- 
net. Genauso wird im eigentlichen Auflösungsteil verfahren, wenn zu einer Position der 
Tabelle in der ‚‚Datei‘‘ eine Stückliste gefunden wurde. Bei den nicht auflösbaren Positio- 
nen wird ein Erledigungsvermerk eingetragen. 


Wenn das Auflösen bei mindestens einer Position erfolgreich war, ist ein neuer Durchgang 


erforderlich. Zuvor werden noch die erledigten Positionen gestrichen, die verbleibenden 
sortiert und gleichnamige zusammengefaßt. 


Wir wollen das Programm so aufbauen, daß jedes der Teilprobleme in einem separaten Un- 
terprogramm bearbeitet wird. Die Koordinierung wird vom Hauptprogramm vorgenom- 
men. In Bild 14.11 sehen Sie einen groben Ablaufplan für das Stücklistenauflösungspro- 
gramm, der zugleich die Struktur des Hauptprogramms darstellt. Hier muß nur noch dafür 
gesorgt werden, daß die „Datei‘‘ be: jedem Durchgang von ihrem Anfang an gelesen wird 
(RESTORE). 


Ablaufpläne für die wesentlichen Unterprogramme finden Sie in den Bildern 14.12 und 
14.13 und das BASIC-Programm in Bild 14.14. 


14.6 Einfache Stücklistenauflösung 


Eingabe: 

Anzahl und Namen der 
aufzulösenden Baugruppen 
lesen und in die Tabelle 
eintragen. 


Aufrücken: 

Aufgelöste Baugruppen aus 
der Tabelle entfernen. 
Verbleibende Positionen 
nach vorn aufrücken. 


Sortieren: 

Die Tabelle wird nach 
Baugruppennamen 
aufsteigend sortiert. 


Raffen: 

Gleichnamige Positionen 
zusammenfassen. 
Verbleibende Positionen 
nach vorn aufrücken. 


Auflösen: 

Sofern dort vorhanden, 
aus der Stücklistendatei 
zu jeder alten Baugruppe 
der Tabelle die darin ent- 
haltenen Bauteile holen 
und in die Tabelle setzen. 














wurde die 
Tabelle beim Auf- 
lösen länger 


ja 


Ausgabe: 
Aktuellen Tabellenstand 
als Ergebnis darstellen. 





Bild 14.11 Stücklistenauflösung, grober Ablaufplan 
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Start: AUFLOESEN 
D=0 


Bild 14.12 
Auflösungsunterprogramm 













AA$(K2) = U$ 
AM(K2) = UM*AM(K) 
AK(K2) = ® 
L=® 


AK(K)=L 
L=1 







Return 


14.6 Einfache Stücklistenauflösung 


Start: AUFRUECKEN 
















AA$(H) = AASJ(K) 
AM(H) = AM(K) 
AK(H) = AK(K) 


K=Ki+1,K2 


AA$(H) = AA$(K) 
AM(H) = AM(K) 
AK(H) = AK(K) 

H=H+1 
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Start: SORTIEREN 


u$ = AA$(1) 
UM = AM(1) 
UK = AK(1) 


0$ = AA$(L +1) 
OM=AM(L+ 1) 
OK=AK(L+1) 


AA$(L)= 0% 
AM(L) =OM 
AK(L) =OK 
AA$(L+1)= U$ 
AM(L + 1) = UM 
AK(L+1)=UK 


Bild 14.13 Aufbereitung der Arbeitsbereiche für die Stücklistenauflösung 
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REAIT. 
15 REM #+%* EINFACHE STLECKLISTEN-AUFLOESUNG **% 


FEM 
15 REM "STAMNMIATEI" FUER TEST MIT IATA ANLEGEN 
16 REM 
45 DATA H.LD.1 
ea DATA E.H.2: K:F.4 
=a DATA F.H.E. FW. 3 
IATR 7. Y., 
FEM #4% MAIN 34% 
DIM ARFC1AR>. AM 1a). AK 100 
GOSUEZBGO 
GOTO1l4E 
SOSUES0O8 
GOSUEJEH 
GOSUESEAG PRINT TRE<I=>:E1:"FÜOS.".TIE 
GOSUESEEH RESTORE 
IF KZ>k1 THEN138 
GOSUE AG 
END 
aa FEM #%%* UP EINGABE KER 
zaS FRINT "T' 
1A FRINT "GEMEINSAM AUFZULÖOESENDE BAUGRUFPPEH"STARÜ4ENGS "EINGEREN" 
>15 FEINT "ALS ENDE DER EINGREE ": TAEUdES: "AHEAHL=E .EELIEFIGE ERLIGEUFFPE" 
22a FRINT 
225 Kiled !Uk=A 
=2@4 INPUT"RAHERHL. ERAUTEIL "SUM.LiE 
„35 IF UM:<a THENZZE 
z4g IF UM>G THEN Ki=ki+tl :Tr=kl "GOSUR22B :G0TO2E58 
259 FRIHT:FRIHT"AUFGELOEST WERDEN" "FRIHT "ANZAHL". "BAUGRUFPFE" 
zes IF Ki=A THENZIE 
25a FOR K=1 TO KL:FEINT AMCED.ARFIEN HEST 
27a RETUFEN 
>B6 REM 33% UF ALUFRUECKEN #%# 
16a H=l 
2a FÜR E=1 TO kl 
z2s IF Akik)=ü THEHZ4S 
=360 IF E=H THENZ4E 
255 Y=k Y=H :GOSLES1E 
244 H=H+1 
245 NEST 
=£H FOR K=kKil+tl TO KE 
255 Sk !r=H :GÖOSUEF1E 
=’ H=H+1 
ara NEST 
zu Kil=H-1 
aa FEETUFH 
aaa REM #%%UF SORTIEREN 3%# 
4as IF KliE THEHN RETURN 
4a FÜR K=1 To Ki+tl 
445 %=1 "GOSUESSE 
4260 FÜR L=1 TO KI-E 
3425 »=L+1 :G0SUE3EN 
43a IF Url=üf THEH GÜSUEF4E  GOTO44S 
3435 T=L :GOSUF>>0 
44 'T=L+1 "GÜSUEFEE 
345 NEST 
456 NEST 
gsa FETURN 
=saa FEM ##% UF EAFFEN #3% 


ee 
JB EN Je a fi Pe a ic Ci 
a a a 


DALE ERTEILT) 


14.6 Einfache Stücklistenauflösung 


1 
15 
Sec 
zen 
Du PAD | 


3230 
33 


IF kıca THEH RETURH 
x=j :GOSUB3SH 
FOR E=2 TO KH 
IF AR$cK>=UF THEN UM=UM+AMCK:  GOTOSS58 
"=H :GOSUE220 
x=k " GOSUBISE 


= H=H+1 
4 NEST 


Y=H :G0SUB3SE 
K.1l=H 


AUFLOESEN #8 
:L=1 Uksl 
Oki 

IF AKik)=1 THEHETE 

IF I=5 THEN D=1 :READ Gr.ls,.0M IF Gf=uE THEN Del 
IF I=2Z THENSEE 

IF OEIARFCE> THEN Dei :G0TOe>e 
IF O#=AftiK) THEH KZ=K2+l  UM=UMEANGE: eh GÜSLERIG 


3 AK&Ka=L :Lel 
4 NE=T 
3 FETURN 


REM #*%* UF AUSGRAEE #*# 

FREINT:FREINT "ERGEENIS" 

PRINT "ANZAHL". "ERUTEIL" 

FÜR K=1 TO KL’FRINT AMCKS.ARECE>  MEST 
RETUFH 

REM 

AASCTISAAFEHD AMT SAN. AKT OSARS > RETURN 


2 AASC HT ISUE AMT TISUM: AKT =UR RETUFH 
AR SOE AMT SON AKT D=ÜR RETURN 


UE=0F:UM=OM :UK=ÜR RETURN 
USSARSCHI  UMSAMSRDEUK=ARN 2 RETURN 


7 O$=AAFIS)  OM=SANMGHN OOE=SAKTS> RETURN 


Bild 14.14 Stücklistenauflösung 
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GOTLE.2E 
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14.7 Lösung linearer Gleichungssysteme 


Problem: Gleichungssysteme der Form 


41 1X1 + ...t+ Ay mXm ” bj 


AmıXı +... + ammXm "= bm 
mit gegebenen a;« und b,, 1 Si, k Sm, können mit dem Gaußschen Eliminationsverfah- 
ren gelöst werden. Wir wollen diesen Algorithmus in ein Programm umsetzen und unter- 
stellen dabei das System als eindeutig lösbar. Wer sich für Fragen der Lösbarkeit interes- 
siert, mag dazu in Büchern über numerische Mathematik nachschauen. 


Gelegentlich sind mehrere Gleichungssysteme mit gleicher Koeffizientenmatrix (a;K) und 
verschiedenen rechten Seiten zu lösen wie z.B. 


2x, tx, tx, =2 2ıXı tX, t+xX3 = 4 
Xı 7X +x3 =3 und X "X2 tX3 > d 
-Xı - 2X, "X, =9 = Xı - 3X, -X, =-3 


Daher ist das Programm so aufgebaut, daß zu einer Matrix mehrere rechte Seiten eingege- 
ben werden dürfen. (Lösungen dieser Systeme sind 1,- 1,1 bzw. 2, 1,-1.) 


Um das Programm transparenter zu gestalten, haben wir es in Unterprogramme gegliedert. 
Das MAIN nimmt wiederum nur Steuerungsaufgaben wahr. 


Lösungsweg: Wegen der damit verbundenen kürzeren Formulierung des Verfahrens spei- 
chern wir die Koeffizienten und die rechten Seiten intern in einer einzigen (m, n)-Matrix A. 
Die erste rechte Seite steht in Spalte m + 1, die zweite in Spalte m + 2 usw., so daß für die 
beiden genannten Gleichungssysteme folgende Matrix einzugeben wäre: 


2171 2 4 
1-1 13% 
-1-2-1 9-3 

Das Gauß-Verfahren zielt darauf ab, ein vorgegebenes lineares Gleichungssystem so umzu- 
formulieren, daß in der Koeffizientenmatrix unterhalb der Hauptdiagonale nur Nullen ste- 
hen. Für die erste Spalte gelingt das, wenn jeweils ein geeignetes Vielfaches der ersten 
Gleichung (Basiszeile) zu jeder der folgenden Gleichungen addiert wird, was ja die Lö- 
sungsmenge nicht beeinflußt. Anschließend werden analog mit Hilfe der zweiten Glei- 
chung als Basiszeile die Nullen in der zweiten Spalte geschaffen usw. 


Aus numerischen Gründen erfolgt noch eine Spaltenpivotisierung, d.h. durch Vertauschung 
der Gleichungen wird vor dem ersten Durchgang das betragsgrößte Element der ersten Spal- 
te in die erste Zeile gebracht. Diese Zeile dient dann als erste Basiszeile. Vor dem zweiten 
Durchgang werden die restlichen Gleichungen so vertauscht, daß deren betragsgrößtes Ele- 
ment der zweiten Spalte nach Zeile 2 kommt usw. 


14.8 Normierte Zahlendarstellung 105 


Wenn die Transformation beendet ist, können die Unbekannten in einfacher Form berech- 
net werden. Aus der letzten Gleichung 


B-xı +0-x2 +... +d-xm-ı + AmmXm " dAmm +1 
erhält man 


Xm ” dm,m + ı /Am,m- 


Danach kann aus der vorletzten Gleichung x, _ ı berechnet werden: 


Xm-ı7 (Am - ı,m + 1 — Am - 1,mXm )/Am - ı,m- ı- 


Analog werden die anderen Unbekannten erhalten, und bei mehreren rechten Seiten ist 
dieser Auflösungsteil entsprechend zu wiederholen. Eine weitergehende Erläuterung des 
Gauß-Algorithmus finden Sie in Büchern über numerische Mathematik. 


Das Hauptprogramm beschränkt sich im wesentlichen auf Unterprogrammaufrufe, wie 
Bild 14.15, Plan a, zeigt. Das Löschen ist wegen der Zyklusstruktur nötig, weil sonst beim 
erneuten Durchlauf versucht würde, einen existierenden Array erneut zu dimensionieren, 
was eine Fehlermeldung einbrächte. 

Das Unterprogramm für die Eingabe der (M, N)-Matrix A haben wir relativ komfortabel 
gestaltet. Bild 14.15, Plan b, zeigt den entsprechenden Ablaufplan. Mancher Leser wird 
dieses Unterprogramm auch an anderer Stelle verwenden können. Zu beachten ist, daß 
die elementweise Eingabe mit ®, ®, ® beendet wird, so daß sich zulässige Indexwerte auf 1 
bis M bzw. 1 bis N beschränken. 

Zur Einsparung von Rechenzeit werden im algorithmischen Teil des Programms nicht im- 
mer ganze Zeilen bearbeitet. Es ist nicht erforderlich, die Nullen auch tatsächlich herzu- 
stellen, die sich aufgrund des Verfahrens unterhalb der Hauptdiagonale ergäben. In Bild 
14.16 finden Sie die Ablaufpläne für das Gauß-Verfahren und die Pivotsuche, und Bild 
14.17 zeigt das gesamte Programm. 
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Problem: Wenn der Zahlenwert einer Variablen unmittelbar auf dem Bildschirm ausgege- 
ben wird, kann die Darstellungsform nicht beeinflußt werden. Das stört z.B. bei der Aus- 
gabe von Kolonnen, die hier linksbündig geschrieben werden. Es stört auch, wenn unab- 
hängig von der Präzision der Eingangsgrößen die Ergebnisse technischer Berechnungen mit 
9 scheinbar signifikanten Ziffern erscheinen. Daher stellen wir hier ein Unterprogramm 
vor, mit dem Zahlen in der Form 


tx.xxxxE + xx 


ausgegeben werden können. Die Anzahl der Ziffern im gebrochenen Teil der Mantisse ist 
frei wählbar. 


Dieses Beispiel demonstriert außerdem den Gebrauch der verschiedenen Stringfunktionen. 
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a) b) 
Start: MATEIN 
Eingabe: 
M,N 


DIM A(M, N) 






Eingabe: 
Steuergröße 
für Eingabeart 





element- 





MATEIN: 
Eingabe der 
Gleichungen 








weise 












Eingabe von 
Zeilenindex, 
Spaltenindex 
und Wert 


zeilenweise 
Eingabe der 
Matrix 


GAUSS: 
Berechnung der 
Lösungen mit dem 








Eliminationsver- 
fahren von Gauß 


AUSGABE: 
Darstellung der 
Lösungen nach 
Abruf durch den 
Benutzer 


Felder und Variable 
löschen , Protokoll 






Eingabe: 
Steuergröße 
für Protokoll 









Wert 
speichern 


Ausgabe: 
"Index 
falsch“ 








ja 


Ausgabe 
der Matrix 


Eingabe: 
Steuergröße 
für Korrektur 


Return 






Bild 14.15 Gauß-MAIN und Matrixeingabe 
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Start: GAUSS Start: PIVOT 


PIVOT: 
Beste Basis- 



















zeile wählen 


HF =- A(HJ, HI)/A(HI, HI) 


A(HJ, HK) = A(HJ, HK) 
+ HF*A(HI, HK) 



















HF = A(HI, HK) 
A(HI, HK) = A(HJ, HK) 
A(HJ, HK) =HF 






A(M, HK) = A(M, HK)/A(M, M) 





HI=M-1,1,-1 


HF = A(HI, HK) 
HJ =HI +1,M 


HF=HF — 
A(HI, HJ)*A(HJ, HK) 


A(HI, HK) = HF/A(HI, HI) 
Bild 14.16 
Ablaufpläne zum Gaußverfahren 
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FEAD'T. 


18 FR 
zu FR 
20 FR 
4a IF 


INT FREINT "& LIHERRE GLEICHUNGSSTSTEME HACH GRUSS#" 

INT '# MEHRERE FECHTE SEITEN MOEGLICH 4" 

INT:FRIHT "ZEILENSAHL M UNI SFALTENZAHL N EINGEREH" INFUT"M.N "MN 
Mi OR N{=M THEN 20 


sö DIM ACM.N: 


Ei 5 
ra Gü 
29 G0 
CL 
) 


Zu 
LEE 1 | 


Le 


ZU Te Fa fl 


u ld 0 a ee Nu) 
bt bi bi bi pt pt fh du De 


Ffir PIPsDs fin 


BR 
N 


FE 


IT ps cc, 


Mimi 
EU NTEPErERE 

JOINT eN 
x”) 


cn 


Bafs fifa mn me 
KER ace Buche BE 


— 
u BC 


De ze u u u a Ce 


IT Fall 


ba pi u ee u ne u ee ne 


im m mm 


un 
uch 


F Apısmapafı 
IE f 


SUB1100 
SUE1SZAG 
SUE1200 


R :G0TO38 
FEM ##% UF EINGABE EINER 2M.H>-MATREIS #8 

REM EIN:M.H. AUS NATEIS A. 

PRIHT:FRIHT "ZEILEN ©2> ODER ELEMENTE {E" EINGEBEN "" 
INFUT"ZEICHEN Z ODER E".H# 

H$=LEFT$SCH$. 1: FRINT :IF H&="E" THENIIG4e 

IF H£{>"Z" THEN111S 

FÜR HI=1 Tü M FEM ZEILEHWEISE 

Für HE=1 TON 

FRIHT "Ai" SHIl:". "Hk; "I". IMFUT ACH2.HkEn OO KE=T HE.HI 
SOTO11SE 

INFUT"ZEILE. SFALTE.HERT ".HI.HE.HL "EN ELEHEHTHEISE 
IF HI=&a THEN11S0 

IF HI©1 OR HE{1l THEN FRINT "INDER FALSCH" GOTOiI4E 


& IF HI:M OR HE>N THEN FEINT "IHDER FALSCH" GOTOIS4E 
= AUHI.HK>=HL GOTO11ge 

a FRIHT:FFIHT "FREOTORÖLL © GIF I ÜDER H 
= INPUT H# :HF=LEFTECHF. 1: 


IF H£="N" THEHI1TE 

IF H#{;"T" THEH11S0 

FEIHT 

FÜR HI=1 TOM "REM FROTOFOLL 
FEIHT "ZEILE":HI 

FÜR HE&=1 TO H :FRIHT REHI.HE>.  HEST 
FEIHT :NE=T 

FREIHT:FRINT "EÖRREETUF © GIE I ODER H ". 
IHFLT H£ HE=LEFTEEHF. 1: 

IF H£="N" THEN FETUFH 

IF Hf="1" THEH FREIHT GOTO114e 
GOTO1174 

FEM ###* ULF GALSS-VERFRHFEN +++ 
FEM EIN:M.N.MATEI= A. 

IF M{Z THEHIEZE 

FÜR HI=1 TO M-1 

GOSLUE12EH 

FÜR HI=HI+1 TO HH 

HF=-AÜHT.HIN "AUHI.HI: 

Für HE=HI+1 To H 

RUHT. HES=SRUÜHT. HE:+HF#RCHT. HEN 
HE=T HE.HI.HI 

FEM DREIECKSGESTALT ERFEICHT 
FÜR HE=N+1 TO NH 


ACH. HES=RCH.HEN REM. MH: 


IF MHZ THEHIZ4E 


2 FOR HI=M-1 Tü 1 5TER -i 


HF=RCHI. HE) 


© FÜR HT=HI+1 TOM 

"2 HF=HF-RCHI.HIS#RCHT. HE: 
4 HEST 

& RÜHL.HES=HFSACHI.HIN 


HE=T 


- NEST 
> FEM LOESUHGEN STEHEN HE OSFALTE Mel 


FRETLFH 
FEN ##% UF SFALTENFIVOT #44 
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1261 REM EIN:HI.M.MATRIS A 
1262 HF=-i 
1264 FÜR HK=HI TO M 


Izec& HF=AESCRACÜHR.HISS 
1265 IF HF>HF THEN HF=HF H.T=HE 
1270 HEST 
1272 IF HI=HI THEH RETUFEN 
1274 EEM ZEILEN yERTAUS =CHEH 
1276 FÜR HE=HI TO I 
1273 HF=AUÜHl. HE) "ACHT, HES=RACHT.HRS  RUcHIT.HR2=HF 
1220 NE=T 
1222 FETUFN 
1202 REM ##%# UP AUSGARE DER LOEZUNGEN ##% 
1301 FEM EIH M.H.NATEIS A 
1:12 FÜR HE=M+1 TO H 
12312 FREIHT :IF HE=M+1 THEHISZE 
1314 FRINT "HACH EINGABE DEZ ZSEICHENS WO WIED DEF HAECHSTE YERTOR ANGEZEIGT' 
1:1& INPUT" "WE 
1212 IF LEFTFCHF.1S"WM" THENII14 
1320 PEINT "2";HE-M:". LOESUNGSYERTOR" OFRINT 
1322 FÜR HI=i To M "PRINT ACHI.HE: NEST 
1224 NEST 
132E FETUFHN 
FERIT. 


Bild 14.17 Lösung linearer Gleichungssysteme nach Gauß 


Lösungsweg: Die darzustellende Zahl wird auf ZA erwartet und auf NZ die Anzahl der in 
der Mantisse hinter dem Punkt aufzuführenden Ziffern. Das Ergebnis wird auf ZA$ als 
String der Länge NZ + 7 geliefert. Bei der Aufbereitung wird von STR$ (ZA) ausgegangen. 
Diese Funktion liefert einen String mit der gleichen Zeichenfolge, wie die Zahl bei direkter 
Ausgabe auf dem Bildschirm erschienen wäre. Die Mantisse einschließlich des Vorzeichens 
wird als String beibehalten (H$), während der Exponent in seine numerische Form über- 
führt wird (H3). Trat kein Exponent auf, erhält H3 den Wert ®. 

Jetzt muß der Punkt in der Mantisse hinter die erste Ziffer geschoben werden. Damit das 
nicht den Zahlenwert verfälscht, erfolgt ein entsprechender Ausgleich im Exponenten H3. 
Dieser wird anschließend in einen String umgewandelt und in den Ergebnisstring eingear- 
beitet. Dabei sind eine Reihe von Sonderfällen zu beachten, wie Sie dem Ablaufplan (Bild 
14.18) und vor allem dem Programm (Bild 14.19) entnehmen können. 
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Tritt ein 
xponent auf 


H8 = ZA$S H$ = Mantissenteil von ZA$ 
H3=ß H3 = Wert des Exponenten 


Lage des Punktes ermitteln. 
Ggf. Punkt anfügen. 


Punkt verschieben und 
Exponent H3 anpassen. 


Vorzeichen und signifikanten 
Teil der Mantisse nach ZA$. 


ZA$ auf geforderte Stellenzahl 
verlängern oder verkürzen. 





Exponent in String umwandeln, 
ggf. aufnullen und Vorzeichen 
setzen und hinter Mantisse und 
»E‘“ in ZA$ anfügen. 


Bild 14.18 Grober Ablaufplan zur Ausgabeaufbereitung von Zahlen 
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READY. 


1G REM TEST-MAIN F. HORMZAHL 
za INPUT" ZA.NE"SZA.NE 

2a GOZUBZB00 

4a PRINT 24% :G0T019 


Tr 2 le eh pre in 


ıbaRafpırFetalsPanstuoftuofofipslhafitan, 


er rn, ve — 
DE a 


Lak PiPpaPpıPpspapı He me 


Jr Li 
wc 


Sronan. 


zu42 
FERI'. 


FEM ##%* UF NÖRMIERTE ZAHLDARSTELLUNG 3% 

REM EIN: FA=FAHL. NE=SAHZAHL STELLEN HINTERM FUÜNET. RUS:EAF 
IF FRea THEN ZA$=" a." Ha=B  GOTOZO32 

SAS=STREETAR :HI=SLENHLERF: IF H1lXS THENEBIE 

IF MIDEISAE.HI-3:. 1 "E" THEN ZUlE 

HE=LEFTEITHF. H1-4 SHE=WALCRIGHTFSERF. 322 :G0T02014 
Hf=ZR# :H3=0 _ 
FA&=LEFTECHF. 1: FEM YÜRZEICHEN DEF MANTISSE 
Hi=LENÜHFN-1 

Ht=FIGHTECHE.Hi1: :FEM MAHTISSE CHNE “ÜRZEICHEN 

FÜR Hi=1 To Hi :IF MIDFCHFR. HZ. 12="." THENZEZ4 

HE=T 

H$=Ht+"." :Hi=Hil+1 Ha=Hl 

IF H2=2 THEH ZAF=STRF+HF GOTOEEE2 

IF H=E>Z THENZEZ4 

FÜR H?=: TO Hi H3=H3-1 IF MIDECHF.H2.12>"0" THENZESZ 
NEST 

=Tor 

SAst=rAs+MIDECHE. HE. 104". "+RIGHTFEHF.HI-HE> 2 GOTOZE3E 
FHE=FAF+LEFTECHE. 104". "+MIDECHF. 2. H2-29+RIGHTECHF.HL-HE 
H=3=H:+H2-& 

Für H2=1 TO NE Zh$=eäht+t"da" NEST 

FAF=LEFTECLSHF. HEHE) FEM MANTISSE FERTIG 

Hf==TRFiÜH2> °HI=SLENEHF>-1 

IF LEFTECHE. 15:"-" THEH Hf="+"+RIGHTFCHF.HID 


SE SAF=EAF+"E"+LEFTECHF. 12 :IF Hi=1 THEN ZRt=ÄEhnFH"e" 


EA$=ZRF+RIGHTFÜHF. HI? RETURN 


Bild 14.19 Normierte Zahldarstellung 
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15 Lösungen der Aufgaben 


2-1 Der Cursor zeigt die Stelle des Bildschirms, die bei der nächsten Betätigung einer 
Taste beschrieben wird. 


2-2 Die Bildschirmzeile, in der der Cursor blinkt, wird mit der RETURN-Taste zur Be- 
arbeitung an den Rechner übergeben. 


2-3 Der Cursor wird auf das Y gesetzt und dann werden folgende Tasten betätigt: 


Lnst |, [sr], [st], [o],[el, [el 


2-4 Der Cursor wird auf das U gesetzt und dann werden folgende Tasten betätigt: 


Linst |, [R], [eRsR|, [ORSR|, [per], [8], [CRSR]|, [ORSR|, [leer ]. 


2-5 Wenn sie mit der RETURN-Taste übergeben werden, speichert er sie als Programm- 
text. 


3-1 Mit dem Fragezeichen wird das BASIC-Kennwort PRINT für die Ausgabe auf den 
Bildschirm abgerufen. Vor dem Fragezeichen dürfen Leerstellen und eine Zeilen- 
nummer stehen. 


3-2 18 A=2 
208 B=3 
30 ?A*A + A*B + B*B 
RUN 
oder als 3. Zeile 
30 ?At2 + A*B + Bt2 


3-3 10 X=12.25 
20Y= 35 
30 Z= 35 
ad ?X/(Y*Z) 
RUN 
3-4 10 X= 12.25 
20 Y= 35 
30 Z= 35 
ad A= (X -Y)t2/(X +Z) 
5Q ?A 


RUN 
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3-5 


4-1 
4-2 


4-3 


4-4 


5-1 
5-2 


5-3 
5-4 


6-1 
6-2 
6-3 


6-4 
7-1 


Eine Variable kann als ein Speicherplatz (für eine beliebige, veränderbare Zahl) an- 
gesehen werden. Der Variablenname entspricht der Adresse des Platzes, der Inhalt 
des Platzes bildet den Variablenwert. Variablennamen bestehen aus einem Buchsta- 
ben, zwei Buchstaben oder einem Buchstaben und einer Ziffer. 


Mit der STOP-Taste wird das laufende Programm unterbrochen. 


Vor der Programmeingabe mit NEW den Programmspeicher löschen. Nach der Pro- 
grammeingabe mit LIST den Inhalt des ganzen Programmspeichers anzeigen lassen. 


Das Programm wird mit RUN (, RUN 10 oder GOTO 1ß) gestartet. Damit ist das 
Löschen aller Variablen verbunden, so daß A in Zeile 20 mit Null multipliziert wird. 
(Bei GOTO 19 tritt der gleiche Effekt auf, falls X nach der Programmeingabe kein 
Wert zugewiesen wurde; denn auch bei der Eingabe von Programmzeilen wurden die 
Variablen gelöscht.) 


Wenn das Programm eingegeben ist, fahren Sie mit 
X =0.25 
GOTO 19 

oder mit 
A=1 
GOTO 30 

fort. 
20 ?TAB(19);B;TAB(2®);A 
20 ?TAB(19);B; 
39 ?TAB(29);A 
18 ?’GEWICHT: ‘;G,”’KG“ 
10 ?SPC(3); ’'GEWICHT“ 
20 ?SPC(3);G;”’KG“ 
"ABC, DEF“ 
18 DATA ”’ABC, DEF“ 


Der Rechner reagiert mit Programmabbruch und der Meldung READY. Sie setzen 
das Programm fort mit 


und können dann den geplanten Text eingeben. 
Nein 

19 INPUT Al, A2, A3 

20 AM= AI 

30 IFA2<AM THEN AM = A2 

40 IFA3< AM THEN AM = A3 

50 ? AM 
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7-2 


7-3 


8-1 


8-2 
9-1 


9-2 
9-3 


9-4 
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18 INPUTN 

20 INPUT AM 

30 K=1 

40 IFK<N THEN 70 

50 PRINT AM 

60 END 

7K=-K+] 

80 INPUT A 

9 IFA<AMTHENAM=A 
100 GOTO 49 


Wir müssen noch festlegen, wie der Wert von n bereitgestellt wird. Da immer über 

alle Artikel summiert werden soll, entscheiden wir uns für die Aufnahme von n in 

die DATA-Anweisungen. Diese richten wir auf ein Beispiel mit 5 Artikeln und den 
Preisen 17,50 DM, 21,00 DM, 123,80 DM, 99,80 DM und 37,90 DM aus. 


1 DATA5 

2 DATA 17.5, 21, 123.8, 99.8, 37.9 
18SZ=0:SN=G®:L=1 
20 READN 
30 READP: INPUT A 
Ad SZ=SZ+A*P:SN=SN+A 
Ss L=L+1:IFL<=N THEN 30 
60 PRINT SZ/SN 


Die Kassette zurückspulen und das VERIFY-Kommando geben. Wenn die PLAY- 
Taste eingelegt ist, erscheint die Meldung 


FOUND Name. 
AKT, ART, AST, AK, AR, AS, A. 


OPEN -Anweisung für den im PRINT # benutzten Kanal. Fabrikneue Disketten 
müssen vor der ersten Verwendung sektoriert werden. (s. HEADER) 


Der Diskettenname ist für den Rechner ohne Bedeutung. 
Wenn die Diskette z.B. in Laufwerk 1 liegt, wird durch 
DIRECTORY DI 


das Inhaltsverzeichnis gezeigt. Der Inhalt des Programmspeichers wird dadurch 
nicht verändert. 


Die Diskette in Laufwerk ® wird sektoriert, wobei alle darauf befindlichen alten 
Dateien zerstört werden. Die Diskette erhält den Namen N2® und die Identifika- 
tion 1P. 
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9-5 Die geforderte Datei wird mit folgendem Programm erstellt: 


18 DOPEN #2, ”TEST“, W,DP 
20 PRINT #2,1;CHR$ (13),2;”,“;3,CHR$ (13) ;4;” ,“;5; 
” “6;CHR$(13) 
30 DCLOSE 
Das Lesen der ersten 3 Sätze gelingt mit 


10 DOPEN#3,”’TEST“,DP 

20 INPUT #3, X:PRINT X 

30 INPUT#3,X,Y:PRINT X, Y 

AB INPUT#3,X,Y,Z:PRINTX,Y,Z 


10-1 Wenn Spezialtasten wie z.B. die Cursorsteuertasten Bestandteil eines Ausgabestrings 
sind, werden sie bei der Ausgabe auf den Bildschirm interpretiert, bei der Ausgabe 
auf den Drucker hingegen als Zeichen dargestellt. Umgekehrt gibt es auch Zeichen, 
die vom Drucker als Steuerzeichen interpretiert werden (s. Druckerhandbuch), wäh- 
rend sie auf dem Bildschirm als Zeichen erscheinen. 


10-2 10 OPEN 4, 4:OPEN, 1,4, 1:OPEN 2,4, 2 
20 PRINT #4, SPC(4);”X‘;SPC(10);”’Xt2“ 
30 PRINT#2,”’S999.999 S9Y99.999“ 
40 INPUTN:K=1 
50 INPUT X 
60 PRINT#1,X,Xt2 
70 K=K+1:IFK<=NTHEN 59 
80 CLOSE 1 


10-3 OPEN 5, 4 
CMD5 
LIST 


und nach dem Drucken 


PRINT #5 


11-1 10 INPUT ”N“;N 
2B IFN<PTHEN 1 
30 F=1 
AB FORK=1TON 
50 F=F*K 
60 NEXT 
70 PRINT F 


11-2 18 INPUT ’’M,N‘“;M,N 
20 N = INT(ABS(N)) :REM N WIRD GANZ UND NICHT NEGATIV 
38 B=-1:L=1 
4d IFN=® THEN 99 
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11-3 


12-1 
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50 FORK=1TON 
60 B= B*M/L 
7L=-L+1:M=M-1I 
80 NEXT 

98 PRINT B 


Für KS # ® ist die Schleife 
280 FORK=KATOKE STEPKS 


90 NEXT 
gleichwertig mit 

18 K=-KA 

20 REM 


90 K=K+KS:IF (KE -K)*SGN (KS)>=P THEN 29 


10 INPUT "N“;N:IFN<2THEN 19 
20 DIM X (N), Y (N) :INPUT X (1), Y (1) 
30 FORK=2TON 

40 INPUT X, Y 

50 FORL=K-1TO1STEP-1 

6D IFX(L)<=X THEN 109 

70 X(L+1)=X(L):Y(L+1)=Y(L) 
80 NEXT 

pL= 

100 X(L+1)=X:Y(L+1)=Y 

110 NEXTK 

120 REM LESEN UND SORTIEREN FERTIG 
130 FORK=1TON 

140 PRINT X (K), Y (K) 

150 NEXT 


10 INPUT”N“;N:IFN <2 THEN 1 

20 DIM X(N) 

30 FOR K = 1 TO N: INPUT ”X‘SX(K):NEXT 

AD S = B:GOSUB 8:M = S/N:PRINT”MITTELWERT =;M 
50 FORK=1TON :X (K) = (X (K) - M)t2 :NEXT 

60 S=M :GOSUB 80 :V = S/(N - 1) 

70 PRINT "VARIANZ =“;V:END 

80 FORK=1TON:S=S+X(K) :NEXT 

90 RETURN 
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12-2 


13-1 


13-2 


10 DEFFNAS(SX) = ATN (SX/SQR (1-SXt2)) 
2® DEFFNAC(CX) = ATN(SQR (1-CXt2)/CX) 


110 INPUT ’M“:M:M$ = STR$(M):L = LEN(M$) 

128 IFI<5 THEN 119 

130 IF MID$(M$, L-3, 1) <> ”E“ THEN 189 

140 K$ = “009 

150 IF MIDS(M$, 3,1) <>”. “THENKS=".“+K$ 
160 H$ = LEFTS(M$, LA) + K$ 

170 M$ = LEFT$ (H$, 6) + RIGHTS(MS$, 4) 

180 PRINTM$ :GOTO11P 


218 INPUT ”STRING“; Q$:L = LEN(Q$) 
220 IFL<1THEN 219 

230 PRINT LEFT$(Q$, 1); 

240 IFL=1 THEN 329 

250 FORM=2TOL 

260 E$ = MID$(Q$,M, 1) 

270 FORN=1TOM-I 

280 IF E$ = MID$ (Q$, N, 1) THEN 31 
298 NEXTN 

300 PRINT E$; 

310 NEXTM 

320 PRINT :GOTO 219 


410 INPUT ”STRING“; Q$:L = LEN(Q$) 
420 IFL<1 THEN 419 
430 K=1 

440 IFL=1THEN 569 
450 FORM=2TOL 

460 ES = MID$(Q$,M, 1) 
470 FORN=1TOK 

480 H$ = MID$(Q$,N, 1) 
490 IF Eß= HS THEN 559 
500 IF EB <HSTHEN 539 
518 NEXTN 

520 N=K+1 
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539 Q8 = LEFT$(Q$, N-1) + E$ + MID$ (Q$, N, M-N) + RIGHT$ (Q4, L-M) 


549 K=-K+1 
550 NEXTM 
560 PRINT LEFT$(Q$,K) :GOTO 419 
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spielen zur optimalen Ausnutzung seines Gerätes, besonders im Hinblick auf die Entwicklung 
eigener Programme. 
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Mit zahlr. Beispielen u. 10 vollst. Programmen. 1982. Ca. 160 S. DIN CS. Kart. 


Die höhere Programmiersprache PASCAL findet z.Zt. eine schnelle Verbreitung, da das syste- 
matische Programmieren in strukturierter Form unterstützt wird. Dieses Buch führt Program- 
mieranfänger an diese neue Programmiersprache heran. 


Schnell, Gerhard und Konrad Hoyer 
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